diff --git a/src/scm/report/balance-and-pnl.scm b/src/scm/report/balance-and-pnl.scm
index cc615072a0..fe267c6b5b 100644
--- a/src/scm/report/balance-and-pnl.scm
+++ b/src/scm/report/balance-and-pnl.scm
@@ -30,11 +30,11 @@
     balance-temp))
 
 (define (gnc:group-get-balance-until group to-tp)
-  (sum (map (lambda (x) (gnc:account-get-balance-until x to-tp)) group)))
+  (apply + (map (lambda (x) (gnc:account-get-balance-until x to-tp)) group)))
 
 (define (gnc:group-get-balance-interval group from-tp to-tp)
-  (sum (map (lambda (x)
-              (gnc:account-get-balance-until x from-tp to-tp)) group)))
+  (apply + (map (lambda (x)
+                  (gnc:account-get-balance-until x from-tp to-tp)) group)))
 
 ;; Just a private scope.
 (let