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 -N -r1.18 -r1.18.2.1
--- openacs-4/packages/acs-lang/tcl/localization-procs.tcl	21 Jun 2006 06:34:30 -0000	1.18
+++ openacs-4/packages/acs-lang/tcl/localization-procs.tcl	14 Dec 2006 13:55:09 -0000	1.18.2.1
@@ -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]