From ac01370c67d8a414ae6508065fbc0028ab24e8e4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 21 Mar 2023 20:29:28 +0100
Subject: [PATCH] Fix current month and print it.

---
 bbstool.scm       | 2 ++
 configuration.scm | 2 +-
 member-record.scm | 2 +-
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/bbstool.scm b/bbstool.scm
index d5fbcd7..cabfee4 100644
--- a/bbstool.scm
+++ b/bbstool.scm
@@ -113,6 +113,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 ;; Perform requested action
 (case (-action-)
   ((print-info)
+   (newline)
+   (print "Current month: " (month->string (*current-month*)))
    (newline)
    (if mr
        (print-member-record-info mr)
diff --git a/configuration.scm b/configuration.scm
index 26abdba..9d31cac 100644
--- a/configuration.scm
+++ b/configuration.scm
@@ -45,7 +45,7 @@
    (make-parameter
     (let ((d (seconds->local-time (current-seconds))))
       (list (+ 1900 (vector-ref d 5))
-	    (vector-ref d 4)))))
+	    (+ (vector-ref d 4) 1)))))
 
  ;; Configuration of error reporting
  (define *member-file-context* (make-parameter 3))
diff --git a/member-record.scm b/member-record.scm
index 8780196..e8b46c7 100644
--- a/member-record.scm
+++ b/member-record.scm
@@ -147,7 +147,7 @@
  (define (member-existing? mr)
    (let ((joined (mr-ref mr 'joined)))
      (and joined
-	  (month<? joined (*current-month*)))))
+	  (month<=? joined (*current-month*)))))
 
  ;; Member formatting function for general use.
  (define (member-format fmt mr)