diff --git a/src/members-fees.scm b/src/members-fees.scm
index a77affd..7fe3dc8 100644
--- a/src/members-fees.scm
+++ b/src/members-fees.scm
@@ -122,19 +122,21 @@
 
  ;; Converts the entry into the fee
  (define (member-calendar-entry->fee e)
-   (if e
-       (if (member 'existing (cadr e))
-	   (if (member 'suspended (cadr e))
-	       0 ; Suspended
-	       (if (member 'destroyed (cadr e))
-		   0 ; Destroyed
-		   (if (member 'student (cadr e))
-		       (lookup-member-fee 'student) ; Student
-		       (if (caddr e)
-			   (caddr e)
-			   (lookup-member-fee 'regular))))) ; Normal
-	   0) ; Nonexistent - should not happen
-       0)) ; Nonexistent
+   (with-current-month
+    (car e)
+    (if e
+	(if (member 'existing (cadr e))
+	    (if (member 'suspended (cadr e))
+		0			; Suspended
+		(if (member 'destroyed (cadr e))
+		    0			; Destroyed
+		    (if (member 'student (cadr e))
+			(lookup-member-fee 'student) ; Student
+			(if (caddr e)
+			    (caddr e)
+			    (lookup-member-fee 'regular))))) ; Normal
+	    0)			     ; Nonexistent - should not happen
+	0))) ; Nonexistent
 
  ;; Converts the calendar into a table where rows represent years and
  ;; contain the year in the first cell and 12 cells for months after