Fix current month and print it.

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)

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

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)