diff --git a/src/members-print.scm b/src/members-print.scm
index 959fb85..134f983 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 MB))
+   (let ((balances (map member-balance (members-base-members MB)))
 	 (members ;; Pass 1
 	  (map
 	   (lambda (mr)
@@ -357,7 +357,7 @@
 		     payment
 		     total
 		     )))
-	   (sort MB member<?))))
+	   (sort (members-base-members MB) member<?))))
      (print
       (table->string
        (cons