Bump version to 1.15.1

src/hackerbase.scm

@@ -288,6 +288,7 @@
 
 (define* (check-mailing-list mls name #:pred? (pred? #f))
   (define ml (find-mailman-list mls name))
+  (when ml
     (let-values (((missing surplus)
 		  (mailman-compare-members ml
 					   (mbase-active-emails MB
@@ -304,7 +305,7 @@
 		(when (not (null? missing))
 		  (print "  Missing: " missing))
 		(when (not (null? surplus))
-		(print "  Outsiders: " surplus)))))))
+		  (print "  Outsiders: " surplus))))))))
 
 (define (rada-ml-pred? mr)
   (or (brmember-council? mr)

src/members-fees.scm

@@ -122,6 +122,8 @@
 
  ;; Converts the entry into the fee
  (define (member-calendar-entry->fee e)
+   (with-current-month
+    (car e)
     (if e
 	(if (member 'existing (cadr e))
 	    (if (member 'suspended (cadr e))
@@ -134,7 +136,7 @@
 			    (caddr e)
 			    (lookup-member-fee 'regular))))) ; Normal
 	    0)			     ; Nonexistent - should not happen
-       0)) ; Nonexistent
+	0))) ; Nonexistent
 
  ;; Converts the calendar into a table where rows represent years and
  ;; contain the year in the first cell and 12 cells for months after

src/texts.scm

@@ -39,7 +39,7 @@
 	 (chicken format))
 
  ;; Short banner
- (define banner-line "HackerBase 1.15 (c) 2023 Brmlab, z.s.")
+ (define banner-line "HackerBase 1.15.1 (c) 2023 Brmlab, z.s.")
 
  ;; Banner source with numbers for ANSI CSI SGR
  (define banner-source "