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] } {