Render bucket listing

I'm pretty sure I had this working before...

webshit.lisp

@@ -172,10 +172,14 @@
 			  (text (chain document (get-element-by-id "keyfield") value)))
 		      (setf (getprop xhttp 'onreadystatechange) 
 			    (lambda ()
-			      (and (= (getprop this 'ready-state) 4) 
-				   (= (getprop this 'status) 200)
-				   (funcall (getprop console 'log) (getprop xhttp 'response-text)))
-			      t)
+			      (if (and (= (getprop this 'ready-state) 4)
+				       (= (getprop this 'status) 200))
+				  (progn
+				    (funcall (getprop console 'log) (getprop xhttp 'response-text))
+				    (setf (chain document (get-element-by-id "buckets")
+						 inner-h-t-m-l)
+					  (getprop xhttp 'response-text))
+				    t)))
 			    (getprop xhttp 'response-type) "text/plain")
 		      (setf text (funcall (getprop text 'replace) (regex "/\\n/g") ","))
 		      (funcall (getprop xhttp 'open) "POST" "/buckets/" t)
@@ -184,8 +188,8 @@
 	     (:body
 	      (:form (:textarea :attrs (list :type "text" :id "keyfield"))
 		     (:input :attrs (list :type "button" :value "send" :onclick "send()")))
-	      (:ol (dolist (i dirs)
-		     (:li (:a :attrs (list :href i) i))))))))))
+	      (:ol :attrs (list :id "buckets") (dolist (i dirs)
+						 (:li (:a :attrs (list :href i) i))))))))))
 
 (defun send-bucket-cookie (env)
   (let* ((session (or (get-session env) (make-session)))