diff --git a/src/mbase.scm b/src/mbase.scm
index ef82f17..2837eee 100644
--- a/src/mbase.scm
+++ b/src/mbase.scm
@@ -270,7 +270,7 @@
 	(brmember-info mr 'mail))
       (bdict-filter-values
        (mbase-members mb)
-       (lambda (mr)
+       (lambda (id mr)
 	 (or (and active
 		  (brmember-active? mr))
 	     (and suspended