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.159 -r1.160
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	20 Nov 2009 11:42:15 -0000	1.159
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	21 Nov 2009 00:42:11 -0000	1.160
@@ -838,6 +838,7 @@
       if { [catch "lc_numeric $value [my format] [my locale]" result] } {
         util_user_message -message "[my label]: $result (locale=[my locale])"
 	#my msg [list lc_numeric $value [my format] [my locale]]
+	set converted_value $value
         if {[catch {scan $value [my format] converted_value}]} {
 	  return $value
 	} else {