anchor.diff:      
       
       (stp:delete-children sheets)
  -    (adopt-children (spreadsheet-rows sheet)
  -		    (spreadsheet-rows title))
  -    (adopt-children (spreadsheet-columns sheet)
  -		    (spreadsheet-columns title))
  -    (if (spreadsheet-merged-regions sheet)
  -	(adopt-children (spreadsheet-merged-regions sheet)
  -			(spreadsheet-merged-regions title))
  -	(stp:append-child sheet (stp:copy (spreadsheet-merged-regions title))))
  +    (when title 
  +      (adopt-children (spreadsheet-rows sheet)
  +		      (spreadsheet-rows title))
  +      (adopt-children (spreadsheet-columns sheet)
  +		      (spreadsheet-columns title))
  +
  +      (if (spreadsheet-merged-regions sheet)
  +	  (adopt-children (spreadsheet-merged-regions sheet)
  +			  (spreadsheet-merged-regions title))
  +	  (stp:append-child sheet (stp:copy (spreadsheet-merged-regions title))))
       
   		    
  -    (adopt-children (spreadsheet-cells sheet) 
  -		    title-cells)
  +      (adopt-children (spreadsheet-cells sheet) 
  +		      title-cells)
       #+n(adopt-children (spreadsheet-styles title)
   		       (spreadsheet-styles sheet))
       #+n(stp:delete-children (spreadsheet-styles sheet))
       (adopt-children (spreadsheet-styles sheet)
  -		    (spreadsheet-styles title))
  +		    (spreadsheet-styles title)))
   
       (stp:delete-children sheet-name-index)
       (stp:append-child sheet-name-index  
  
positive.code: 	 (<gnm>   
  	   (<> ("gnm:Cells")
  	     (loop :for line in report 
  		:for row upfrom (1+ header-row)
  		:do (loop :for (name . original-value)  in line
  		       :for column :upfrom start-column 
  		       :do 
  
negative.code: 						   1)
  						  (t 2.5))))
  				       (/ (* 10 (length value)) den)))))
  			 
  			 
  			 (when column-info
  			 )	  
  			 (<cell>  
  			  value
  			  :row row
  