diff --git a/src/members-print.scm b/src/members-print.scm
index 971d3c6..2ec3673 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -335,7 +335,7 @@
 
  ;; Prints summary table of all fees and credits for all members
  (define (print-members-fees-table MB)
-   (let ((balances (map member-balance (sort MB member<?)))
+   (let ((balances (map member-balance MB))
 	 (members ;; Pass 1
 	  (map
 	   (lambda (mr)
@@ -357,7 +357,7 @@
 		     payment
 		     total
 		     )))
-	   MB)))
+	   (sort MB member<?))))
      (print
       (table->string
        (cons