From 0f668cfa34e4a8571ebb6ad68c250a0504e819a8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Mon, 22 May 2023 14:21:11 +0200
Subject: [PATCH] Make sure the month-in-period treats everything as month.

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

diff --git a/src/cal-period.scm b/src/cal-period.scm
index 4b32b59..316b1f7 100644
--- a/src/cal-period.scm
+++ b/src/cal-period.scm
@@ -195,7 +195,7 @@
  (define (cal-month-in-period? p . ml)
    (let ((m (if (null? ml)
 		(*current-month*)
-		(car ml)))
+		(cal-ensure-month (car ml))))
 	 (before (cal-ensure-month (cal-period-before p) #t))
 	 (since (cal-ensure-month (cal-period-since p))))
      (and (or (not before)