anchor.diff:  			(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)))
  -
  -      
  -      
  -
  -      )
  +	(let ((filename (cutout-extension notebook-filename)))
  +	  (setf (chain document (get-element-by-id "rename_span")  |innerHTML|)
  +		filename)
  +	  (setf (chain document (get-element-by-id "rename_save")  |innerHTML|)
  +		filename)
  +	  (setf (chain document (get-element-by-id "rename_input") value)
  +		filename))))
   
       
       ;; chage title to notebook name
  
positive.code: 	    (saved-span (chain document (get-element-by-id "rename_save"))))
  	(unless (= (chain saved-span |innerHTML|)
  		   (chain input value))
  	  (setf ever-been-saved 0))
  	(setf (chain span |innerHTML|)
  	      (chain input value))
  
negative.code: 	(setf (chain input style display) "none")
  
  	(setf (chain saved-span |innerHTML|)
  	      (chain span |innerHTML|))))
      
  
      
  