From 19ea16738bb0849c2bbfecfe71f3c17dfcaf5c8c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 6 Apr 2023 20:44:55 +0200
Subject: [PATCH] Fix car.

---
 src/members-payments.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)