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.169 -r1.170
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	4 Mar 2010 10:43:41 -0000	1.169
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	18 Apr 2010 21:01:08 -0000	1.170
@@ -840,7 +840,7 @@
     next
     my set widget_type numeric
     # check, if we we have an integer format
-    my set is_integer [regexp {%[0.9.]*d} [my format]]
+    my set is_integer [regexp {%[0-9.]*d} [my format]]
   }
   numeric instproc convert_to_external value {
     if {$value ne ""} {