When creating cal-period, ensure months for periods.

src/cal-period.scm

@@ -138,7 +138,10 @@
 			    (not (null? (cdr args))))
 		       (cadr args)
 		       #f)))
-     (list TAG-CAL-PERIOD since before scomment bcomment)))
+     (list TAG-CAL-PERIOD
+	   (if since (cal-ensure-month since) since)
+	   (if before (cal-ensure-month before) before)
+	   scomment bcomment)))
 
  ;; Simple accessors
  (define cal-period-since cadr)