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.111 -r1.189.2.112
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Dec 2021 10:57:01 -0000	1.189.2.111
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Dec 2021 11:03:02 -0000	1.189.2.112
@@ -291,11 +291,9 @@
 } {
     set new_set_id [ns_set new "no_nulls$old_set_id"]
 
-    for {set i 0} {$i < [ns_set size $old_set_id]} {incr i} {
-        if { [ns_set value $old_set_id $i] ne "" } {
-
-            ns_set put $new_set_id [ns_set key $old_set_id $i] [ns_set value $old_set_id $i]
-
+    foreach {key value} [ns_set array $old_set_id] {
+        if { $value ne "" } {
+            ns_set put $new_set_id $key $value
         }
     }