Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl,v
diff -u -N -r1.48.2.2 -r1.48.2.3
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	20 Sep 2015 15:38:07 -0000	1.48.2.2
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	22 Sep 2015 18:34:43 -0000	1.48.2.3
@@ -61,8 +61,7 @@
 
     @author Peter marklund (peter@collaboraid.biz)
 } {
-    set regexp_pattern {(?:^|[^\\])(\#[-a-zA-Z0-9_:]+\.[-a-zA-Z0-9_:]+\#)}
-    return [get_regexp_indices $multilingual_string $regexp_pattern]
+    return [regexp -inline -indices -all {\#[a-zA-Z0-9_:-]+\.[a-zA-Z0-9_:-]+\#} $multilingual_string]
 }
 
 ad_proc lang::util::message_tag_regexp {} {