diff --git a/members-base.scm b/members-base.scm
index 62c545a..47514ab 100644
--- a/members-base.scm
+++ b/members-base.scm
@@ -260,9 +260,8 @@
       sep)))
 
  ;; Returns dictionary with statistics about the members base.
- (define (members-base-info mb-arg)
-   (let* ((mb (filter-members-by-predicate mb-arg member-existing?))
-	  (di0 (make-dict))
+ (define (members-base-info mb)
+   (let* ((di0 (make-dict))
 	  (di1 (dict-set di0 'invalid
 			 (filter-members-by-predicate mb
 						      (compose not is-4digit-prime? member-id))))