diff --git a/src/members-payments.scm b/src/members-payments.scm
index e06e8d2..5c6aa34 100644
--- a/src/members-payments.scm
+++ b/src/members-payments.scm
@@ -100,7 +100,11 @@
 			(compare-member-id (member-id mr) varsym-id))
 		      (lambda (mr)
 			(member-record-add-payment mr transaction)))
-		     (members-base-add-unpaired mb transaction))
+		     (if (or (not last-checked)
+			     (> (bank-transaction-id transaction)
+				last-checked))
+			 (members-base-add-unpaired mb transaction)
+			 mb))
 		 (cdr transactions))))))
 
  ;; Reads the payments
@@ -132,7 +136,8 @@
        (lambda ()
 	 (with-input-from-file file-name
 	   (lambda ()
-	     (number->string (read-line)))))))))
+	     (let ((str (read-line)))
+	       (string->number str)))))))))
 
  ;; If apikeys is not #f, loads the account numbers, loads bank
  ;; accounts and processes transactions.