anchor.diff:      (delete! book it))
     (unless (eq new-noise :normal)
       (insert! book (list cell-id :noise new-noise)))
  -  (publish! :updates (update :book (notebook-name book) :cell cell-id :action 'change-cell-noise :new-noise new-noise))
  +  (publish! :cl-notebook-updates (update :book (notebook-name book) :cell cell-id :action 'change-cell-noise :new-noise new-noise))
     :ok)
   
   (define-stream-handler (cl-notebook/source) ()
  -  (subscribe! :updates sock))
  +  (subscribe! :cl-notebook-updates sock))
   
   ;;;;; System entry
   (defun read-statics ()
  
positive.code:   (let* ((name (format nil "book-~a" (hash-table-count *notebooks*)))
  	 (book (new-notebook! name)))
      (write! book)
      (publish! :updates (update :action 'new-book :book-name name))
      (current book)))
  
  (define-json-handler (cl-notebook/notebook/kill) ((book :notebook))
    (kill! book)
    (publish! :updates (update :book (notebook-name book) :action 'kill-book))
    :ok)
  
  (define-json-handler (cl-notebook/notebook/rename) ((book :notebook) (new-name :string))
    (let* ((old-name (notebook-name book))
  	 (book (rename-notebook! book new-name)))
      (write-delta! book)
      (publish! :updates (update :book old-name :action 'rename-book :new-name new-name)))
    :ok)
  
  (define-json-handler (cl-notebook/notebook/eval-to-cell) ((book :notebook) (cell-id :integer) (contents :string))
  
negative.code:     (delete! book (car it)))
    (insert-new! book :cell-order cell-order)
    (write-delta! book)
    (publish! :cl-notebook-updates (update :book (notebook-name book) :action 'reorder-cells :new-order cell-order))
    :ok)
  
  (define-json-handler (cl-notebook/notebook/kill-cell) ((book :notebook) (cell-id :integer))
    (loop for f in (lookup book :a cell-id) do (delete! book f))
    (write-delta! book)
    (publish! :cl-notebook-updates (update :book (notebook-name book) :cell cell-id :action 'kill-cell))
    :ok)
  
  (define-json-handler (cl-notebook/notebook/change-cell-type) ((book :notebook) (cell-id :integer) (new-type :keyword))
  