Index: openacs-4/packages/acs-lang/tcl/localization-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/localization-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-lang/tcl/localization-procs.tcl	30 Sep 2003 10:27:39 -0000	1.12
+++ openacs-4/packages/acs-lang/tcl/localization-procs.tcl	12 Oct 2003 06:57:10 -0000	1.13
@@ -187,6 +187,12 @@
     set sep [lc_get -locale $locale "thousands_sep"]
     set dec [lc_get -locale $locale "decimal_point"]
     set grouping [lc_get -locale $locale "grouping"]
+
+    # Fall back on en_US if grouping is not on valid format
+    if { ![string equal $locale en_US] && ![regexp {^[0-9 ]+$} $grouping] } {
+        ns_log Error "acs-lang.localization-grouping key has invalid value $grouping for locale $locale"
+        return [lc_numeric $num $fmt en_US]
+    }
     
     regsub {\.} $out $dec out