diff --git a/ChangeLog b/ChangeLog
index 670276bf4f..d714565674 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-21  Derek Atkins  <derek@ihtfp.com>
+
+	* src/business/business-reports/aging.scm: fix the percentage
+	  calculations so we don't get GtkCritical warnings.
+
 2003-04-21  Christian Stimming  <stimming@tuhh.de>
 
 	* po/de.po: Update German translation (latest transaction.scm
diff --git a/src/business/business-reports/aging.scm b/src/business/business-reports/aging.scm
index d09e6a9a58..e20b91b7a0 100644
--- a/src/business/business-reports/aging.scm
+++ b/src/business/business-reports/aging.scm
@@ -532,9 +532,10 @@ totals to report currency")
 
 	    ;; build the table
 	    (set! work-to-do (length splits))
+	    ;; work-done is already zero
 	    (for-each (lambda (split)
-			(set! work-done (+ 1 work-done))
 			(gnc:report-percent-done (* 50 (/ work-done work-to-do)))
+			(set! work-done (+ 1 work-done))
 			(update-company-hash companys 
 					      split 
 					      interval-vec 
@@ -553,9 +554,10 @@ totals to report currency")
 
 	    ;; build the table
 	    (set! work-to-do (length company-list))
+	    (set! work-done 0)
 	    (for-each (lambda (company-list-entry)
-			(set! work-done (+ 1 work-done))
 			(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))