(for-each (lambda (company-list-entry)
			(gnc:report-percent-done (+ 50 (* 50 (/ work-done work-to-do))))
			(set! work-done (+ 1 work-done))
			(let* ((monetary-list (convert-to-monetary-list
					       (company-get-buckets
						(cdr company-list-entry))
					       (company-get-currency
						(cdr company-list-entry))
					       (company-get-overpayment
						(cdr company-list-entry))))
			       (owner (company-get-owner-obj
				       (cdr company-list-entry)))
			       (company-name (gncOwnerGetName owner))
			       (addr (gncOwnerGetAddr owner))
			       (company-email (gncAddressGetEmail addr)))

			  (add-to-column-totals total-collector-list
						monetary-list)

			  (let* ((ml (reverse monetary-list))
				 (total (car ml))
				 (rest (cdr ml)))

			    (set! monetary-list
				  (reverse
				   (cons
				    (gnc:make-html-text
				     (gnc:html-markup-anchor
				      (gnc:owner-report-text owner account)
				      total))
				    rest))))

		;;	  (set! row-list(append row-list company-email))
			  ( gnc:html-table-append-row! table
			  	( cons
				  ( gnc:make-html-text
				    ( gnc:html-markup-anchor
				      ( gnc:owner-anchor-text owner
				      )
				      company-name
				    )
				  )
				  (append monetary-list company-email)
				)
		      )
;;			  (gncOwnerFree addr) ???
			  (gncOwnerFree owner)))
		      company-list)