diff --git a/src/mbase.scm b/src/mbase.scm
index 3731dc5..e2daa1d 100644
--- a/src/mbase.scm
+++ b/src/mbase.scm
@@ -236,7 +236,7 @@
    (let ((keys '(month total active suspended students destroyed invalid)))
      (let mloop ((data '())
 		 (month (members-base-oldest-month mb)))
-       (if (cal-month<? month (*current-month*))
+       (if (cal-month<=? month (*current-month*))
 	   (let ((bi (with-current-month month
 					 (mbase-info mb))))
 	     (let kloop ((row (list (ldict-ref bi 'month)))