Index: openacs-4/packages/calendar/tcl/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl	15 Sep 2001 07:26:54 -0000	1.2
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl	17 Sep 2001 06:49:49 -0000	1.3
@@ -30,6 +30,14 @@
     set hours [lindex $event_time 3]
     set minutes [lindex $event_time 1]
 
+    if {$month < 10} {
+	set month "0$month"
+    }
+
+    if {$day < 10} {
+	set day "0$day"
+    }
+
     if {$hours < 10} {
 	set hours "0$hours"
     }