anchor.diff:  				   (remove-if-not (lambda (e) (typep e 'stp:element))
   						  (stp:list-children title-cells))))))
   	  (sheet (create-spreadsheet-from-alist 
  -		 name report  
  -		 :start-row (+ 2 title-max-row)))
  +                  name report  
  +                  :start-row (+ 2 title-max-row)
  +                  :format-dollarsign format-dollarsign))
   	 (document (empty-document))
   	 (sheets (stp:find-recursively-if 
   		  (of-name "Sheets") document))
  
positive.code: 				 ((char= #\$ (aref value 0))
  				  (setf value (subseq value 1))
  				  ;; set the accounting style region	
  				  (stp:append-child 
  				   styles (<gnm> (<accounting-style-region>
  						  :start-column column
  						  :start-row row)))
  				  (cell-value-type 'float))
  				 (t (cell-value-type 'string))))
  			      (value-format 
  			       (cond ((equal value-type (cell-value-type 'float))
  				      "$#,##0_);[Red]($#,##0)")))
  			      (column-info 
  			       (stp:find-child-if 
  				  (lambda (e) 
  
negative.code:   sheet)
      
  		    
  (defun create-spreadsheet (report &key title name (format-dollarsign t))
    (let* ((title (when title (create-spreadsheet-from-title title)))
  	 (title-cells (when title (spreadsheet-cells title)))
  	 (title-max-row 
  