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.8 -r1.9
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	5 Feb 2002 02:10:55 -0000	1.8
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	13 Mar 2002 22:50:53 -0000	1.9
@@ -228,6 +228,9 @@
         set piece [lindex $date $index]
         if { ![string equal $piece {}] } {
           append value $space
+          if { [string length $piece] == 1 } {
+            append value "0"
+          }
           append value $piece 
           append format $space
           append format $sql_form
@@ -243,7 +246,9 @@
       set ret [list]
       foreach fragment $clipped_date {
         if { [string equal $fragment {}] } {
-          lappend ret 0
+          lappend ret "00"
+        } elseif {[string length $fragment] == 1} {
+          lappend ret "0$fragment"
 	} else {
           lappend ret $fragment
 	}