diff --git a/src/cal-period.scm b/src/cal-period.scm
index e88954c..ea1cf3d 100644
--- a/src/cal-period.scm
+++ b/src/cal-period.scm
@@ -138,10 +138,7 @@
 			    (not (null? (cdr args))))
 		       (cadr args)
 		       #f)))
-     (list TAG-CAL-PERIOD
-	   (if since (cal-ensure-month since) since)
-	   (if before (cal-ensure-month before) before)
-	   scomment bcomment)))
+     (list TAG-CAL-PERIOD since before scomment bcomment)))
 
  ;; Simple accessors
  (define cal-period-since cadr)