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 -N -r1.284.2.183 -r1.284.2.184
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	2 Jan 2022 16:25:10 -0000	1.284.2.183
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	4 Jan 2022 16:14:47 -0000	1.284.2.184
@@ -2938,15 +2938,13 @@
 
   numeric instproc convert_to_internal_value {value} {
     try {
-      lc_parse_number $value ${:locale} ${:is_integer}
-    } on ok {result} {
+      set result [lc_parse_number $value ${:locale} ${:is_integer}]
     } on error {errorMsg} {
       #ns_log notice "numeric instproc convert_to_internal <$value> ${:locale} -> $errorMsg ($::errorCode)"
       if {${:strict} == 0 && ${:locale} ne "en_US"} {
-        try {
-          lc_parse_number $value en_US ${:is_integer}
-        } on ok {result} {
-        }
+        set result [lc_parse_number $value en_US ${:is_integer}]
+      } else {
+        error $errorMsg
       }
     }
     return $result