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.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