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.284.2.193 -r1.284.2.194
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	1 Feb 2022 17:03:28 -0000	1.284.2.193
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	1 Feb 2022 21:07:46 -0000	1.284.2.194
@@ -6144,8 +6144,7 @@
   }
 
   date instproc set_compound_value {value} {
-    #:msg "${:name} original value '[:value]' // passed='$value' disa?[info exists :disabled]"
-    # if {$value eq ""} {return}
+    #:log "${:name} original value '[:value]' // passed='$value' disa?[info exists :disabled]"
     if { $value eq {} } {
       # We need to reset component values so that
       # instances of this class can be used as flyweight
@@ -6157,11 +6156,11 @@
       return
     }
     set value [::xo::db::tcl_date $value tz]
-    #:msg "transformed value '$value'"
     if {$value ne ""} {
+      #ns_log notice "DATE date tries to scan '$value' // <[string map [list _ " "] $value]>"
       set ticks [clock scan [string map [list _ " "] $value]]
     } else {
-      set ticks ""
+      error "date: the parsed database value must not be empty"
     }
     set :defaults(year)  [clock format $ticks -format %Y]
     set :defaults(month) [clock format $ticks -format %m]