diff --git a/src/members-payments.scm b/src/members-payments.scm
index 6a9dc68..337b869 100644
--- a/src/members-payments.scm
+++ b/src/members-payments.scm
@@ -162,7 +162,9 @@
 		      mb)
 		    (let ()
 		      (progress%-advance (/ idx total))
-		      (loop (members-payments-process-bank mb (car accounts) last-checked)
+		      (loop (if account
+				(members-payments-process-bank mb (car accounts) last-checked)
+				mb)
 			    (add1 idx)
 			    (cdr accounts))))))
 	     (let ()