anchor.diff:  	    (saved-span (chain document (get-element-by-id "rename_save"))))
   	(unless (= (chain saved-span |innerHTML|)
   		   (chain input value))
  +	  (console.log  (chain saved-span |innerHTML|))
  +	  (console.log  (chain input value))
   	  (setf ever-been-saved 0))
   	(setf (chain span |innerHTML|)
   	      (chain input value))
  
positive.code: 			(make-message
  			 "loadFile"
  			 notebook-filename))))
  	
  	(setf (chain document (get-element-by-id "rename_span")  |innerHTML|)
  	      (cutout-extension notebook-filename))
  	(setf (chain document (get-element-by-id "rename_input") value)
  	      (cutout-extension notebook-filename)))
  
        
        
  
        )
  
      
      ;; chage title to notebook name
  
negative.code: 	(setf (chain input style display) "none")
  
  	(setf (chain saved-span |innerHTML|)
  	      (chain span |innerHTML|))))
      
  
      
  