anchor.diff:      ;; AJAX calls
       (defun kill-thread ()
         (post/json "/cl-notebook/system/kill-thread" (create)))
  -
  +    
       (defun notebook/current (name)
         (post/json "/cl-notebook/notebook/current" (create :book name)
  -		 #'notebook!))
  +		 #'notebook!
  +		 (lambda (res)
  +		   (map (lambda (opt) (chain opt (remove-attribute :selected)))
  +			(by-selector-all "#book-list option"))
  +		   (chain (by-selector "#book-list option") (set-attribute :selected "selected"))
  +		   (dom-set 
  +		    (by-selector "#notebook")
  +		    (who-ps-html (:h2 "Notebook '" name "' not found..."))))))
   
       (defun new-book () 
         (post/json "/cl-notebook/notebook/new" (create) 
  
positive.code: 	    (:button :onclick "newBook()" "+ New Book")
  	    (:select :id "book-list"
  		     :onchange "displayBook(this.value)"
  		     (loop for name being the hash-keys of *notebooks*
  			do (htm (:option :value name (str name)))))
  	    (:button :class "right" :onclick "killBook()" "- Kill Book"))
  
negative.code: 			      (notebook-cells *notebook*))))))
  
         (unless (get-page-hash)
  	 (set-page-hash (create :book (chain (@ (by-selector-all "#book-list option") 1) (get-attribute :value)))))
         (setf (@ window onhashchange) #'hash-updated)
         (hash-updated)))))
  