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.39 -r1.40
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	16 Nov 2007 18:25:34 -0000	1.39
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	26 Nov 2007 09:14:43 -0000	1.40
@@ -886,8 +886,9 @@
   }
   
   FormField::date instproc set_compound_value {} {
-    set value [my value]
-    #my msg "date: value set to '$value'"
+    #my msg "original value '[my value]'"
+    set value [::xo::db::tcl_date [my value] tz]
+    #my msg "transformed value '$value'"
     if {$value ne ""} {
       set ticks [clock scan [string map [list _ " "] $value]]
     } else {