diff --git a/brmsaptool.scm b/brmsaptool.scm
index 1870e7b..7491755 100644
--- a/brmsaptool.scm
+++ b/brmsaptool.scm
@@ -101,6 +101,7 @@
        (print-members-base-info MB))
    (newline))
   ((print-stats)
+   (newline)
    (print-members-base-stats
     (members-base-stats MB)))
   )
diff --git a/member-record.scm b/member-record.scm
index 1894b24..3fe72e2 100644
--- a/member-record.scm
+++ b/member-record.scm
@@ -36,6 +36,7 @@
   member-student?
   member-nick
   member-id
+  member-existing?
   member-record-tests!
   )
 
@@ -129,6 +130,12 @@
  (define (member-id mr)
    (mr-ref mr 'id))
 
+ ;; Returns true if the member has joined.
+ (define (member-existing? mr)
+   (let ((joined (mr-ref mr 'joined)))
+     (and joined
+	  (month<? joined (*current-month*)))))
+
  ;; Performs module self-tests.
  (define (member-record-tests!)
    (run-tests
diff --git a/members-base.scm b/members-base.scm
index 7cb3edf..89c3931 100644
--- a/members-base.scm
+++ b/members-base.scm
@@ -284,8 +284,9 @@
 
  ;; Returns a list two lists: keys, data.
  ;; Each data record contains values for all keys.
- (define (members-base-stats mb)
-   (let ((keys '(month total active suspended students destroyed invalid)))
+ (define (members-base-stats mb-arg)
+   (let ((keys '(month total active suspended students destroyed invalid))
+	 (mb (filter-members-by-predicate mb-arg member-existing?)))
      (let mloop ((data '())
 		 (month (*member-default-joined*)))
        (if (month<? month (*current-month*))