anchor.diff:  							  value-type)
   						   1)
   						  (t 2.5))))
  -				       (/ (* 10 (length value)) den)))))
  +				       (/ (* 10 (length (princ-to-string value))) den)))))
   			 
   			 
   			 (when column-info
  
positive.code: 				    :value-format (cell-value-format c)
  				    :row (1+ (cell-row c))
  				    :column (cell-column c))))
  	  (stp:append-child 
  	   (spreadsheet-styles sheet)
  	   (<gnm> 
  	     (<accounting-style-region> :start-column (cell-column c)
  				      :start-row (1+ (cell-row c)) 
  				      :foreground-color "4444:4444:4444")))))
        document)))
  
  (defun create-white-oak-spreadsheet (report &key title name)
  
negative.code: 				 ((char= #\$ (aref value 0))
  				  (setf value (subseq value 1))
  				  ;; set the accounting style region	
  				  (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))
                                        (if format-dollarsign
                                            "$#,##0_);[Red]($#,##0)"
                                            "###0_);[Red](###0)"))))
  			      (column-info 
  			       (stp:find-child-if 
  				  (lambda (e) 
  