Fix fees to work with new members base structure.

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