anchor.diff:  	      (setf (chain (getprop cell 'result-area) |innerHTML|) data)
   	      (setf (chain (getprop cell 'editor)
   			   (get-wrapper-element) style display) "none")
  -	      (setf (chain (getprop cell 'cell-loc-area) style display) "none")
  +	      (setf (chain (getprop cell 'cell-loc-area) style visibility) "hidden")
   	      (get-it-focused cell))))
       
       ;; System messages like "saved" or "interrupted" 
  
positive.code:     ;; ====================================================
      ;; misc.
      ;; ====================================================
      (defun focus-to-next-cell (cell)
        (let ((cell-to-focus
  	     ;; if the given cell is the last cell and the content is empty
  
negative.code: 			  (save-notebook)))))
        ;; cell-pad
        (setf cell-pad (chain document (get-element-by-id "cellpad")))
        (let ((cell (make-cell)))
  	(setf cell-pad-top-position (chain (getprop cell 'div-outer) offset-top)))
        
        ;; websocket setup
        (setf ws (new (|WebSocket|
  		     (lisp
  