diff --git a/gnucash/report/report-system/commodity-utilities.scm b/gnucash/report/report-system/commodity-utilities.scm
index 9cadf7e567..a12d57dfc2 100644
--- a/gnucash/report/report-system/commodity-utilities.scm
+++ b/gnucash/report/report-system/commodity-utilities.scm
@@ -535,7 +535,7 @@
                           (gnc:make-number-collector)))))
     ((caadr pair) 'add value-amount)
     ((cdadr pair) 'add share-amount)
-    (set comm-list (list outer-comm (list pair)))))
+    (list outer-comm (list pair))))
 
 (define (create-foreign-list comm-list transaction-comm account-comm
                              share-amount value-amount)
@@ -608,7 +608,7 @@
                  (begin
                    (set! comm-list (create-commodity-list
                                     account-comm transaction-comm
-                                    share-amount value-amount))
+                                    value-amount share-amount))
                    (set! sumlist (cons comm-list sumlist)))
 
                  ;;yes, check for second commodity