Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.43 -r1.44
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	3 Dec 2007 11:19:43 -0000	1.43
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	3 Dec 2007 11:54:04 -0000	1.44
@@ -953,7 +953,7 @@
     #my msg "DATE has value [my value]"
     my set widget_type date
     my set format [string map [list _ " "] [my format]]
-    my array set defaults {year 2000 month 1 day 1 hour 0 min 0 sec 0}
+    my array set defaults {year 2000 month 01 day 01 hour 00 min 00 sec 00}
     my array set format_map {
       SS    {SS    %S 1}
       MI    {MI    %M 1}