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.115 -r1.189.2.116
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Dec 2021 11:40:24 -0000	1.189.2.115
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Dec 2021 12:53:52 -0000	1.189.2.116
@@ -633,9 +633,7 @@
         set the_form [ns_getform]
         # ns_getform will return the empty string outside a connection
         if { $the_form ne "" } {
-            for { set i 0 } { $i < [ns_set size $the_form] } { incr i } {
-                set varname [ns_set key $the_form $i]
-                set varvalue [ns_set value $the_form $i]
+            foreach {varname varvalue} [ns_set array $the_form] {
                 lappend noprocessing_vars [list $varname $varvalue]
             }
         }