anchor.diff:  				 ((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)))
  +				  (when format-dollarsign 
  +                                    (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)")))
  +                                      (if format-dollarsign
  +                                          "$#,##0_);[Red]($#,##0)"
  +                                          "###0_);[Red](###0)"))))
   			      (column-info 
   			       (stp:find-child-if 
   				  (lambda (e) 
  
positive.code:   sheet)
      
  		    
  (defun create-spreadsheet (report &key title name )
    (let* ((title (when title (create-spreadsheet-from-title title)))
  	 (title-cells (when title (spreadsheet-cells title)))
  	 (title-max-row 
  
negative.code: 				   (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)
                    :format-dollarsign format-dollarsign))
  	 (document (empty-document))
  	 (sheets (stp:find-recursively-if 
  		  (of-name "Sheets") document))
  