Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	17 Dec 2007 12:22:52 -0000	1.7
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	28 Dec 2007 16:49:29 -0000	1.8
@@ -2530,7 +2530,7 @@
           if {![info exists __att($varname)]} {
             error "unknown attribute $spec_name"
           }
-          set f [$form_item create_form_field \
+          set f [$form_item create_raw_form_field \
                      -name $spec_name \
                      -slot [$form_item find_slot $varname] \
                      -spec $cr_field_spec,$short_spec]
@@ -2541,7 +2541,7 @@
 	  }
         }
         default {
-          set f [$form_item create_form_field \
+          set f [$form_item create_raw_form_field \
                      -name $spec_name \
                      -slot "" \
                      -spec $field_spec,$short_spec]
Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.94 -r1.95
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	20 Dec 2007 14:29:40 -0000	1.94
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	28 Dec 2007 16:49:29 -0000	1.95
@@ -475,7 +475,12 @@
     if {$widgetinfo ne ""} {
       foreach {y m day hour min} $widgetinfo break
       set t [clock scan "${hour}:$min $m/$day/$y"]
-      return [clock format $t -format "%y-%m-%d %T"]
+      #
+      # be sure to avoid bad side effects from LANG environment variable
+      #
+      set ::env(LANG) en_US.UTF-8 
+      return [clock format $t]
+      #return [clock format $t -format "%y-%m-%d %T"]
     }
     return ""
   }