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.151 -r1.284.2.152 --- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 13 Mar 2021 20:24:33 -0000 1.284.2.151 +++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 18 Mar 2021 00:41:39 -0000 1.284.2.152 @@ -2712,13 +2712,13 @@ numeric instproc convert_to_internal_value {value} { try { - lc_parse_number ${:value} ${:locale} ${:is_integer} + lc_parse_number $value ${:locale} ${:is_integer} } on ok {result} { } 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} + lc_parse_number $value en_US ${:is_integer} } on ok {result} { } } @@ -2732,7 +2732,6 @@ # the conversion should be smooth. # set value [:convert_to_internal_value ${:value}] - ns_log notice "XXXXXX convert_to_internal '${:value}' --> '$value'" ${:object} set_property -new 1 ${:name} [expr {$value}] } }