From 75cc2c6d0e72e456f02074b277dce1a0ab2641f6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Mon, 3 Apr 2023 20:24:39 +0200
Subject: [PATCH] Properly sort members.

---
 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 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