Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.189.2.109 -r1.189.2.110
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Dec 2021 10:34:45 -0000	1.189.2.109
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Dec 2021 10:41:47 -0000	1.189.2.110
@@ -2168,9 +2168,7 @@
         return -code error "The optional switch duplicates must be either overwrite, ignore or fail"
     }
 
-    set size [ns_set size $set_id]
-    for { set i 0 } { $i < $size } { incr i } {
-        set varname [ns_set key $set_id $i]
+    foreach {varname value} [ns_set array $set_id] {
         upvar $level $varname var
         if { [info exists var] } {
             switch -- $duplicates {
@@ -2183,7 +2181,7 @@
                 }
             }
         }
-        set var [ns_set value $set_id $i]
+        set var $value
     }
 }