diff --git a/members-payments.scm b/members-payments.scm
index fa0fce0..928e318 100644
--- a/members-payments.scm
+++ b/members-payments.scm
@@ -36,6 +36,7 @@
 	 (chicken base)
 	 (chicken string)
 	 (chicken io)
+	 (chicken irregex)
 	 bank-account
 	 member-record
 	 members-base
@@ -52,7 +53,9 @@
      (if (null? transactions)
 	 mb
 	 (let* ((transaction (car transactions))
-		(varsym-id (string->number (bank-transaction-varsym transaction))))
+		(varsym-id
+		 (string->number
+		   (bank-transaction-varsym transaction))))
 	   (loop (members-base-update mb
 				      (lambda (mr)
 					(eq? (member-id mr)