diff --git a/src/bbstool.scm b/src/bbstool.scm
index 719ea0c..f5a0cbf 100644
--- a/src/bbstool.scm
+++ b/src/bbstool.scm
@@ -87,8 +87,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 	  (-apikeys-file- fname))
  (-bankdir (dir) "Where are bank CSV files"
 	   (-bank-dir- dir))
- (-jenda-checked (file) "JendaSAP checked.ntlm file"
-		 (*jendasap-checked* file))
+ (-checked (file) "JendaSAP checked.ntlm file"
+	   (*jendasap-checked* file))
  ""
  "Query options:"
  (-mi (id) "Specify member by id" (-member-id- (string->number id)))
@@ -149,7 +149,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
   (if (-action-)
       (let ((mb (load-members (*members-directory*) #t)))
 	(if (-needs-bank-)
-	    (members-payments-process mb (-apikeys-file-) (-bank-dir-))
+	    (members-payments-process mb (-apikeys-file-) (-bank-dir-) (*jendasap-checked*))
 	    mb))
       #f))
 
diff --git a/src/members-payments.scm b/src/members-payments.scm
index 85c077e..4375e95 100644
--- a/src/members-payments.scm
+++ b/src/members-payments.scm
@@ -119,7 +119,7 @@
 
  ;; If apikeys is not #f, loads the account numbers, loads bank
  ;; accounts and processes transactions.
- (define (members-payments-process mb apikeys-file dir)
+ (define (members-payments-process mb apikeys-file dir checked-fn)
    (if apikeys-file
        (let* ((acc-list (load-accounts-list apikeys-file))
 	      (accounts (if acc-list (load-accounts acc-list dir) #f)))