Suspended for at least 24 months.

period.scm

@@ -37,6 +37,7 @@
   month-in-periods?
   period->string
   periods->string
+  periods-match
   period-tests!
   )
 
@@ -126,7 +127,7 @@
 	    (month->string (car p))
 	    (if (cdr p)
 		(month->string (cdr p))
-		"....-..")))
+		"****-**")))
 
  ;; Returns a string representing a list of periods.
  (define (periods->string ps)