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.17.2.1 -r1.17.2.2
--- openacs-4/packages/acs-lang/tcl/localization-procs.tcl	21 Jun 2006 06:30:25 -0000	1.17.2.1
+++ openacs-4/packages/acs-lang/tcl/localization-procs.tcl	3 Nov 2006 22:31:28 -0000	1.17.2.2
@@ -128,6 +128,9 @@
         return $num
     }
     
+    # we need to sanitize the subspec
+    regsub -all -- "(\[&\\\\\])" $sep "\\\\\\1" sep
+
     set match "^(-?$num_re+)("
     set group [lindex $grouping 0]