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: 	(cell-type (caddar (lookup book :a cell-id :b :cell-type))))
      (delete! book cont-fact)
      (insert! book (list cell-id :contents contents))
      (publish! :updates (update :book (notebook-name book) :cell cell-id :action 'content-changed :contents contents))
      (when (and (bt:threadp *front-end-eval-thread*)
  	       (bt:thread-alive-p *front-end-eval-thread*))
        (bt:destroy-thread *front-end-eval-thread*))
      (publish! :updates (update :book (notebook-name book) :cell cell-id :action 'starting-eval))
      (setf *front-end-eval-thread*
  	  (bt:make-thread
  	   (lambda ()
  
negative.code:   (when (and (bt:threadp *front-end-eval-thread*)
  	     (bt:thread-alive-p *front-end-eval-thread*))
      (bt:destroy-thread *front-end-eval-thread*)
      (publish! :cl-notebook-updates (update :action 'killed-eval)))
    :ok)
  
  (define-json-handler (cl-notebook/notebook/current) ((book :notebook))
  