diff --git a/src/members-base.scm b/src/members-base.scm
index 2c717f7..419cd66 100644
--- a/src/members-base.scm
+++ b/src/members-base.scm
@@ -250,7 +250,7 @@
      (foldl (lambda (mb email)
 	      (members-base-update mb
 				   (lambda (mr)
-				     (equal? (member-record-info 'mail)
+				     (equal? (member-record-info mr 'mail #f)
 					     email))
 				   (lambda (mr)
 				     (member-add-mailman mr listname))))