anchor.diff:                        :start-row (1+ (cell-row c)) 
                         :foreground-color "4444:4444:4444"
                         (unless format-dollarsign
  -                        (list :format "0.00")))))))
  -      document)))
  +                        (list :format "0.00"))))))))
  +
  +    (if (not document-sheet-name)
  +        (stp:append-child sheets sheet)
  +        (let ((the-sheet 
  +               (first (stp:filter-children 
  +                        (lambda (sheet)
  +                          (and (funcall (max-ecm/gnumeric/xml:of-name "Sheet") sheet)
  +                               (let ((name (stp:find-child-if (max-ecm/gnumeric/xml:of-name "Name")
  +                                                              sheet)))
  +                                 (string-equal document-sheet-name (stp:string-value name)))))
  +                        sheets))))
  +          (max-ecm/gnumeric/xml:adopt-children the-sheet sheet)))
  +    document
  +   ))
   
   #+(or)(defun create-white-oak-spreadsheet (report &key title name)
     (let* ((sheet (create-spreadsheet-from-alist 
  
positive.code: 				    :value-format (cell-value-format c)
  				    :row (1+ (cell-row c))
  				    :column (cell-column c))))
              (stp:append-child 
               (spreadsheet-styles sheet)
               (<gnm> 
                 (apply #'<accounting-style-region> 
  
negative.code: 		    
        (adopt-children (spreadsheet-cells sheet) 
  		      title-cells)
      
        (adopt-children (spreadsheet-styles sheet)
                        (spreadsheet-styles title)))
  
  
   (let* ((cell-rows (mapcar #'cell-row 
  			      (remove-if-not (lambda (e) (typep e 'stp:element))
  					     (stp:list-children (spreadsheet-cells sheet)))))
  	   #+(or)(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))
  