Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	20 Apr 2004 21:13:07 -0000	1.30
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	29 Jun 2004 10:17:45 -0000	1.31
@@ -90,6 +90,7 @@
     @return the number of days in a month, accounting for leap years
     LOOKATME: IS THE LEAP YEAR CODE CORRECT ?
 } {
+  set month [string trimleft $month 0]
   variable month_data
   set month_desc $month_data($month)
   set days [lindex $month_desc 2]