diff --git a/gnucash/report/report-system/report-utilities.scm b/gnucash/report/report-system/report-utilities.scm
index 973608af96..c7f506f272 100644
--- a/gnucash/report/report-system/report-utilities.scm
+++ b/gnucash/report/report-system/report-utilities.scm
@@ -1113,15 +1113,15 @@ flawed. see report-utilities.scm. please update reports.")
       (format #f "Split<d:~a,acc:~a,amt:~a,val:~a>"
               (qof-print-date (xaccTransGetDate txn))
               (xaccAccountGetName (xaccSplitGetAccount spl))
-              (gnc:monetary->string
-               (gnc:make-gnc-monetary
-                (xaccTransGetCurrency txn)
-                (xaccSplitGetValue spl)))
               (gnc:monetary->string
                (gnc:make-gnc-monetary
                 (xaccAccountGetCommodity
                  (xaccSplitGetAccount spl))
-                (xaccSplitGetAmount spl))))))
+                (xaccSplitGetAmount spl)))
+              (gnc:monetary->string
+               (gnc:make-gnc-monetary
+                (xaccTransGetCurrency txn)
+                (xaccSplitGetValue spl))))))
   (define (trans->str txn)
     (format #f "Txn<d:~a>" (qof-print-date (xaccTransGetDate txn))))
   (define (account->str acc)