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.37.2.2 -r1.37.2.3
--- openacs-4/packages/acs-templating/tcl/parse-procs.tcl	21 Nov 2005 17:52:29 -0000	1.37.2.2
+++ openacs-4/packages/acs-templating/tcl/parse-procs.tcl	22 Nov 2005 21:40:48 -0000	1.37.2.3
@@ -453,7 +453,7 @@
       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      
-        set command "set ${var}(${key})"
+        set command "set ${arr}(${key})"
         set substitution [uplevel $command]
       }
       if { [regexp {^%([a-zA-Z0-9_:]+)%$} $substitution match var] } {