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)