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