Index: openacs-4/packages/evaluation/tcl/evaluation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-procs.tcl,v
diff -u -N -r1.49.2.5 -r1.49.2.6
--- openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	2 Sep 2021 16:40:55 -0000	1.49.2.5
+++ openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	28 Dec 2021 16:56:25 -0000	1.49.2.6
@@ -61,10 +61,7 @@
     }
 
     if { $tag_attributes ne "" } {
-        for {set i 0} { $i < [ns_set size $tag_attributes] } { incr i } {
-            set attribute_name [ns_set key $tag_attributes $i]
-            set attribute_value [ns_set value $tag_attributes $i]
-
+        foreach {attribute_name attribute_value} [ns_set array $tag_attributes] {
             if {$attribute_name eq {}} {
                 append output " $attribute_name"
             } else {