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.42 -r1.43
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	4 Jun 2006 00:45:39 -0000	1.42
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	13 Jul 2006 23:01:40 -0000	1.43
@@ -61,7 +61,7 @@
 
     @author Peter marklund (peter@collaboraid.biz)
 } {
-    set regexp_pattern {(?:^|[^\\])(\#[-a-zA-Z0-9_:\.]+\#)}
+    set regexp_pattern {(?:^|[^\\])(\#[-a-zA-Z0-9_:]+\.[-a-zA-Z0-9_:]+\#)}
     return [get_regexp_indices $multilingual_string $regexp_pattern]
 }