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.79 -r1.80
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	12 Jun 2008 11:38:40 -0000	1.79
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	19 Jun 2008 13:57:39 -0000	1.80
@@ -1330,7 +1330,7 @@
   # "yesterday", "next week", .... use _ for blanks
 
   date instproc initialize {} {
-    #my msg "DATE has value [my value] format=[my format]"
+    #my msg "DATE has value [my value]//d=[my default] format=[my format]"
     my set widget_type date
     my set format [string map [list _ " "] [my format]]
     my array set defaults {year 2000 month 01 day 01 hour 00 min 00 sec 00}
@@ -1367,11 +1367,11 @@
       $c set trim_zeros $trim_zeros
       if {[lsearch [my components] $c] == -1} {my lappend components $c}
     }
-    #my msg "DATE [my name] has value after initialize '[my value]'"
   }
 
   date instproc set_compound_value {value} {
     #my msg "[my name] original value '[my value]' // passed='$value'"
+    if {$value eq ""} {return}
     set value [::xo::db::tcl_date $value tz]
     #my msg "transformed value '$value'"
     if {$value ne ""} {