From 079551e41a890fd8c3d8bc1c9e88bf3faa0c955b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 11 Jun 2024 21:29:06 +0200
Subject: [PATCH] Proper lookup.

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

diff --git a/src/members-print.scm b/src/members-print.scm
index ef70c01..47478dc 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -534,7 +534,10 @@
 			(let ((spec-fee (brmember-spec-fee mr)))
 			  (if spec-fee
 			      spec-fee
-			      "normal"))
+			      (member-calendar-entry->fee
+			       (list (*current-month*)
+				     (brmember-flags mr)
+				     spec-fee))))
 			)))
 	      raw-members))
 	    (balances (map (lambda (m)