diff --git a/src/members-payments.scm b/src/members-payments.scm
index c803da8..bf2c416 100644
--- a/src/members-payments.scm
+++ b/src/members-payments.scm
@@ -77,7 +77,9 @@
 	       (string->number
 		(bank-transaction-varsym transaction)))
 	      (varsym-id
-	       (or varsym-id0
+	       (if (and varsym-id0
+			(> varsym-id0 1000))
+		   varsym-id0
 		   (let* ((msg (bank-transaction-message transaction))
 			  (ci1 (substring-index "," msg))
 			  (vs1 (if ci1