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.101 -r1.102
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	27 Sep 2008 19:11:15 -0000	1.101
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	29 Sep 2008 01:38:19 -0000	1.102
@@ -81,7 +81,7 @@
       return [_ acs-templating.Element_is_required]
     }
     # 
-    #my msg "++ [my name] [my info class] validator=[my validator] ([llength [my validator]])"
+    #my msg "++ [my name] [my info class] validator=[my validator] ([llength [my validator]]) value=$value"
     foreach validator [my validator] {
       set errorMsg ""
       #
@@ -103,8 +103,8 @@
 	set proc_info [$obj procsearch $validator_method]
         #my msg "++ [my name]: page-level validator exists ? [expr {$proc_info ne {}}]"
         if {$proc_info ne ""} {
-          #my msg "++ call page-level validator $validator_method '$value'" 
           set success [$obj $validator_method $value]
+          #my msg "++ call page-level validator $validator_method '$value' returns $success" 
         }
       }
       if {$success == 0} {
@@ -724,7 +724,9 @@
     my set widget_type numeric
   }
   numeric instproc check=numeric {value} {
-    return [string is double $value]
+    #return [string is double $value]
+    #my msg "locale=[my locale] catch {lc_parse_number $value [my locale]}=[catch {lc_parse_number $value [my locale]}]"
+    return [expr {[catch {lc_parse_number $value [my locale]}] == 0}]
   }
 
   ###########################################################