Index: openacs-4/packages/acs-templating/tcl/parse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/parse-procs.tcl,v
diff -u -r1.26.2.9 -r1.26.2.10
--- openacs-4/packages/acs-templating/tcl/parse-procs.tcl	21 Nov 2005 17:48:26 -0000	1.26.2.9
+++ openacs-4/packages/acs-templating/tcl/parse-procs.tcl	21 Nov 2005 17:53:33 -0000	1.26.2.10
@@ -417,10 +417,10 @@
       # TODO: ad_quotehtml
       # TODO: lang::util::localize    
 
-#      regsub -all {[\]\[\{\}\"]\\$} $substitution {\\&} substitution      
+      regsub -all {[\]\[\{\}\"]\\$} $substitution {\\&} substitution      
       if { [regexp {^%([a-zA-Z0-9_]+)\.([a-zA-Z0-9_]+)%$} $substitution match arr key] } {
         # the array key name is substitured by the tcl parser s
-#        regsub -all {[\]\[\{\}\"]\\$} $key {\\&} key      
+        regsub -all {[\]\[\{\}\"]\\$} $key {\\&} key      
 	set command "set ${arr}(${key})"
         set substitution [uplevel $command]
       }