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.15 -r1.16
--- openacs-4/packages/acs-templating/tcl/parse-procs.tcl	22 May 2003 13:44:54 -0000	1.15
+++ openacs-4/packages/acs-templating/tcl/parse-procs.tcl	20 Jun 2003 15:24:24 -0000	1.16
@@ -413,15 +413,15 @@
   # variable references.
 
    # substitute array variable references
-  if { [lsearch -exact {new-portals foobar forums} [ad_conn package_key]] == -1 } {
+  if { [lsearch -exact {new-portals foobar} [ad_conn package_key]] == -1 } {
     while {[regsub -all [template::adp_array_variable_regexp] $code {\1[ad_quotehtml $\2(\3)]} code]} {}
   } else {
     while {[regsub -all [template::adp_array_variable_regexp] $code {\1${\2(\3)}} code]} {}
   }
   while {[regsub -all [template::adp_array_variable_regexp_noquote] $code {\1$\2(\3)} code]} {}
 
   # substitute simple variable references
-  if { [lsearch -exact {new-portals forums} [ad_conn package_key]] == -1 } {
+  if { [lsearch -exact {new-portals} [ad_conn package_key]] == -1 } {
     while {[regsub -all [template::adp_variable_regexp] $code {\1[ad_quotehtml ${\2}]} code]} {}
   } else {
     while {[regsub -all [template::adp_variable_regexp] $code {\1${\2}} code]} {}