From 993dce8750b8cc4ea2b259a27876f97481b824ef Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 4 Apr 2023 23:03:50 +0200
Subject: [PATCH] Fix fees to work with new members base structure.

---
 src/members-print.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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