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