From dfa740f05d73c58318d0cdb5f3dc6136f8aa096e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Fri, 30 Jun 2023 17:14:23 +0200
Subject: [PATCH] Include current month in stats.

---
 src/mbase.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))