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.105 -r1.106
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	29 Sep 2008 17:25:10 -0000	1.105
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	30 Sep 2008 08:48:09 -0000	1.106
@@ -731,7 +731,14 @@
     my set is_integer [regexp {%[0.9.]*d} [my format]]
   }
   numeric instproc convert_to_external value {
-    if {$value ne ""} {return [lc_numeric $value [my format] [my locale]]}
+    if {$value ne ""} {
+      if { [catch "lc_numeric $value [my format] [my locale]" result] } {
+        util_user_message -message "[my label]: $result"
+        scan $value [my format] converted_value
+        return $converted_value
+      }
+      return $result
+    }
     return $value
   }
   numeric instproc convert_to_internal {} {