From 065d406e9c86f2deaccdf2a2623c3e9ca2f00be9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 10 Sep 2024 18:42:19 +0200
Subject: [PATCH] Coerce suspend start to month when calculating suspended
 months.

---
 src/brmember.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/brmember.scm b/src/brmember.scm
index e83c9dd..496dc96 100644
--- a/src/brmember.scm
+++ b/src/brmember.scm
@@ -423,7 +423,8 @@
    (if (brmember-suspended? mr)
        (let ((period (cal-periods-match (brmember-info mr 'suspend))))
 	 (if period
-	     (cal-month-diff (cal-period-since period) (*current-month*))
+	     (cal-month-diff (cal-ensure-month (cal-period-since period))
+			     (*current-month*))
 	     0))
        0))