Index: openacs-4/packages/acs-templating/tcl/tag-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tag-init.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/acs-templating/tcl/tag-init.tcl	25 May 2004 15:22:48 -0000	1.22
+++ openacs-4/packages/acs-templating/tcl/tag-init.tcl	31 Jan 2005 21:03:19 -0000	1.23
@@ -669,9 +669,9 @@
   for { set i 0 } { $i < $size } { incr i } {
      set [ns_set key $params $i] [ns_set value $params $i]
      # substitute array variables
-     regsub {@([a-zA-z0-9_]+)\.([a-zA-z0-9_]+)@} [set [ns_set key $params $i]] {${\1(\2)}} [ns_set key $params $i]
+     regsub {@([a-zA-Z0-9_]+)\.([a-zA-Z0-9_.]+)@} [set [ns_set key $params $i]] {${\1(\2)}} [ns_set key $params $i]
      # substitute regular variables
-     regsub {@([a-zA-z0-9_:]+)@} [set [ns_set key $params $i]] {${\1}} [ns_set key $params $i]
+     regsub {@([a-zA-Z0-9_:]+)@} [set [ns_set key $params $i]] {${\1}} [ns_set key $params $i]
   }
 
   # And this needs to be executed at page execution time due to interactions with the