Filter brmember-credit properly.

src/members-fees.scm

@@ -163,15 +163,7 @@
 
  ;; Total credit manually recorded in member record
  (define (member-credit-total mr)
-   (let* ((credit (filter (lambda (cr)
-			    (let* ((cmon (cadr cr))
-				   (mon (if cmon
-					    (cal-ensure-month cmon)
-					    #f)))
-			      (if mon
-				  (cal-month<=? mon (*current-month*))
-				  #t)))
-			  (brmember-info mr 'credit '())))
+   (let* ((credit (brmember-credit mr))
 	  (amounts (map car credit)))
      (foldl + 0 amounts)))