diff --git a/src/scm/html-utilities.scm b/src/scm/html-utilities.scm
index 1f63815f13..e0a7d64c0e 100644
--- a/src/scm/html-utilities.scm
+++ b/src/scm/html-utilities.scm
@@ -174,7 +174,7 @@
 ;; printed. If reverse-balance? == #t then the balance's signs get
 ;; reversed.
 (define (gnc:html-acct-table-comm-row-helper!
-	 table tree-depth
+	 table tree-depth report-commodity exchange-fn
 	 current-depth my-name my-commodity balance 
 	 reverse-balance? is-stock-account? boldface? group-header-line?) 
   ;; Adds one row to the table. my-name is the html-object
@@ -397,7 +397,7 @@
 	     current-depth my-name my-commodity balance 
 	     reverse-balance? is-stock-account? boldface? group-header-line?) 
       (gnc:html-acct-table-comm-row-helper!
-       table tree-depth
+       table tree-depth report-commodity exchange-fn
        current-depth my-name my-commodity balance 
        reverse-balance? is-stock-account? boldface? group-header-line?))
         
diff --git a/src/scm/report/balance-sheet.scm b/src/scm/report/balance-sheet.scm
index bc54ca1ebf..faa328d966 100644
--- a/src/scm/report/balance-sheet.scm
+++ b/src/scm/report/balance-sheet.scm
@@ -174,9 +174,9 @@
       (define (add-subtotal-line table label balance)
 	(if show-fcur?
 	  (gnc:html-acct-table-comm-row-helper! 
-	   table tree-depth 1 label 
-	   report-currency (gnc:sum-collector-stocks 
-			    balance report-currency exchange-fn)
+	   table tree-depth report-currency exchange-fn
+	   1 label report-currency 
+	   (gnc:sum-collector-stocks balance report-currency exchange-fn)
 	   #f #f #t #f)
 	  (gnc:html-acct-table-row-helper! 
 	   table tree-depth 1 label