diff --git a/src/members-payments.scm b/src/members-payments.scm
index 42636f3..614801b 100644
--- a/src/members-payments.scm
+++ b/src/members-payments.scm
@@ -105,20 +105,16 @@
 
  ;; If apikeys is not #f, loads the account numbers, loads bank
  ;; accounts and processes transactions.
- (define (members-payments-process mb apikeys-file . dirs)
-   (let ((dir (if (null? dirs)
-		  (current-directory)
-		  (or (car dirs)
-		      (current-directory)))))
-     (if apikeys-file
-	 (let* ((accounts (load-accounts
-			   (load-accounts-list apikeys-file)
-			   dir)))
-	   (map member-add-balance
-		(foldl members-payments-process-bank
-		       mb
-		       accounts)))
-	 mb)))
+ (define (members-payments-process mb apikeys-file dir)
+   (if apikeys-file
+       (let* ((accounts (load-accounts
+			 (load-accounts-list apikeys-file)
+			 dir)))
+	 (map member-add-balance
+	      (foldl members-payments-process-bank
+		     mb
+		     accounts)))
+       mb))
 
  ;; Adds all balances - payments are converted to CZK in member-payments-total
  (define (member-add-balance mr)