diff --git a/members-payments.scm b/members-payments.scm
index 83c4b0d..fd43c9c 100644
--- a/members-payments.scm
+++ b/members-payments.scm
@@ -58,10 +58,12 @@
 		  (bank-transaction-varsym transaction)))
 		(varsym-id
 		 (or varsym-id0
-		     (string->number
-		      (irregex-replace (irregex "[^0-9].*" 'u)
-				       (bank-transaction-message transaction)
-				       "")))))
+		     (let* ((msg (bank-transaction-message transaction))
+			    (ci (substring-index "," msg))
+			    (vs (if ci
+				    (substring msg ci)
+				    msg)))
+		       (string->number vs)))))
 	   (loop (members-base-update mb
 				      (lambda (mr)
 					(eq? (member-id mr)
diff --git a/table.scm b/table.scm
index 7f7ef20..3a1e96d 100644
--- a/table.scm
+++ b/table.scm
@@ -139,7 +139,6 @@
  ;; Normalizes cell line to required width and handles leading and
  ;; trailing tabs to allow for right and center alignment.
  (define (table-normalize-cell-line line w)
-   (print "tncl " w " \"" line "\"")
    (let* ((lst (string->list line))
 	  (first-char (if (null? lst) #f (car lst)))
 	  (last-char (if (or (null? lst)