diff --git a/Makefile b/Makefile
index 63bac5b..243ca43 100644
--- a/Makefile
+++ b/Makefile
@@ -50,17 +50,17 @@ BBSTOOL-SOURCES=bbstool.scm testing.scm listing.scm dictionary.scm	\
 	month.scm period.scm ansi.scm command-line.scm			\
 	members-base.scm utils.scm primes.scm member-record.scm		\
 	configuration.scm progress.scm table.scm cards.scm		\
-	member-print.scm member-parser.scm
+	member-print.scm member-parser.scm member-fees.scm
 
 BBSTOOL-OBJS=testing.o listing.o month.o period.o ansi.o dictionary.o	\
 	 command-line.o members-base.o utils.o primes.o			\
 	 member-record.o configuration.o progress.o table.o cards.o	\
-	 member-print.o
+	 member-print.o member-fees.o
 
 BBSTOOL-SHARED=testing.so listing.so month.so period.so ansi.so		\
 	 dictionary.so command-line.so members-base.so utils.so		\
 	 primes.so member-record.so configuration.so progress.so	\
-	 table.so cards.so member-print.so
+	 table.so cards.so member-print.so member-fees.so
 
 .PHONY: imports
 imports: $(BBSTOOL-DEPS)
diff --git a/member-record.scm b/member-record.scm
index 9acb139..c193fd4 100644
--- a/member-record.scm
+++ b/member-record.scm
@@ -341,16 +341,16 @@
 		(member-suspended? '((info . ()))))
     (test-true member-suspended?
 	       (parameterize ((*current-month* (list 2015 2)))
-		 (member-suspended? '((info . ((suspend ((2010 1) 2022 4))))))))
+		 (member-suspended? '((info . ((suspend ((2010 1) (2022 4) #f #f))))))))
     (test-true member-suspended?
 	       (parameterize ((*current-month* (list 2015 2)))
-		 (member-suspended? '((info . ((suspend ((2010 1) . #f))))))))
+		 (member-suspended? '((info . ((suspend ((2010 1) #f #f #f))))))))
     (test-false member-suspended?
 		(parameterize ((*current-month* (list 2023 2)))
-		  (member-suspended? '((info . ((suspend ((2010 1) 2022 4))))))))
+		  (member-suspended? '((info . ((suspend ((2010 1) (2022 4) #f #f))))))))
     (test-true member-active?
 		(parameterize ((*current-month* (list 2023 2)))
-		  (member-active? '((info . ((suspend ((2010 1) 2022 4))))))))
+		  (member-active? '((info . ((suspend ((2010 1) (2022 4) #f #f))))))))
     ))
 
  )