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 } }