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