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.49.2.6 -r1.49.2.7
--- openacs-4/packages/acs-templating/tcl/tag-init.tcl	1 Feb 2021 10:54:23 -0000	1.49.2.6
+++ openacs-4/packages/acs-templating/tcl/tag-init.tcl	28 Dec 2021 13:40:03 -0000	1.49.2.7
@@ -183,11 +183,8 @@
     append command " \[template::util::url_to_file \"$src\" \"\$__adp_stub\"\]"
     append command " \[list"
 
-    for { set i 0 } { $i < [ns_set size $params] } { incr i } {
-
-        set key [ns_set key $params $i]
+    foreach {key value} [ns_set array $params] {
         if {$key in {src ds}} { continue }
-        set value [ns_set value $params $i]
         append command [subst { $key "$value"}]
     }
     append command "\]"