Use specific fee in all computations.

src/brmember.scm

@@ -487,8 +487,7 @@
 	 (let ((fee-period (cal-month-find-period fee-periods)))
 	   (if fee-period
 	       (let ()
-		 (print fee-period)
-		 #t)
+		 (car (cal-period-scomment fee-period)))
 	       #f))
 	 #f)))