anchor.diff:  				    :value-format (cell-value-format c)
   				    :row (1+ (cell-row c))
   				    :column (cell-column c))))
  -            (stp:append-child 
  +          (stp:append-child 
                (spreadsheet-styles sheet)
                (<gnm> 
                  (apply #'<accounting-style-region> 
  
positive.code: 		    
        (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)))
  
      (stp:delete-children sheet-name-index)
      (stp:append-child sheet-name-index  
  		      (<gnm> (<> ("gnm:SheetName" "Cols" "256" "Rows" "65536")
  			       (<> (:text (spreadsheet-name sheet))))))
  					;
  					;<gnm:SheetName gnm:Cols="256" gnm:Rows="65536">Sheet1</gnm:SheetName>
  
      (stp:append-child sheets sheet)
      
      (let* ((cell-rows (mapcar #'cell-row 
  			      (remove-if-not (lambda (e) (typep e 'stp:element))
  					     (stp:list-children (spreadsheet-cells sheet)))))
  	   (cell-cols (mapcar #'cell-column 
  			      (remove-if-not (lambda (e) (typep e 'stp:element))
  					     (stp:list-children (spreadsheet-cells sheet)))))
  	   (cell-min-row (+ 3 title-max-row))
  
negative.code:   sheet)
      
  		    
  (defun create-spreadsheet 
      (report 
       &key 
         title name start-row 
         (format-dollarsign t)
         (document (empty-document))
         (create-header t)
         (document-sheet-name nil))
         
    (let* ((title (when title (create-spreadsheet-from-title title)))
  	 (title-cells (when title (spreadsheet-cells title)))
  	 (title-max-row 
  	  (if (not title) 
  	      -2
  	      (apply #'max (mapcar #'cell-row 
  				   (remove-if-not (lambda (e) (typep e 'stp:element))
  						  (stp:list-children title-cells))))))
           (start-row (or start-row (+ 2 title-max-row)))
           (sheet (create-spreadsheet-from-alist 
                   name report  
                   :start-row start-row
                   :format-dollarsign format-dollarsign
                   :create-header? create-header))
  	 (sheets (stp:find-recursively-if 
  		  (of-name "Sheets") document))
  	 (sheet-name-index 
  	  (stp:find-recursively-if (of-name "SheetNameIndex") document))
           (delete-document-sheets (not document-sheet-name)))
      
      
      (when delete-document-sheets 
        (stp:delete-children sheets)
        (stp:delete-children sheet-name-index)
        (stp:append-child sheet-name-index  
                          (<gnm> (<> ("gnm:SheetName" "Cols" "256" "Rows" "65536")
                                   (<> (:text (spreadsheet-name sheet)))))))
  
      (when title 
        (adopt-children (spreadsheet-rows sheet)
  		      (spreadsheet-rows title))
  