Index: openacs-4/packages/acs-subsite/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs.tcl,v
diff -u -r1.40.2.8 -r1.40.2.9
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	19 Oct 2021 08:32:06 -0000	1.40.2.8
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	28 Dec 2021 14:54:56 -0000	1.40.2.9
@@ -770,10 +770,7 @@
 
     # Go through the extra_vars (ben - OpenACS)
     if {$extra_vars ne "" } {
-        for {set i 0} {$i < [ns_set size $extra_vars]} {incr i} {
-            set __key [ns_set key $extra_vars $i]
-            set __value [ns_set value $extra_vars $i]
-
+        foreach {__key __value} [ns_set array $extra_vars] {
             if { ![info exists real_params([string toupper $__key])] } {
                 # The parameter is not accepted as a parameter to the
                 # pl/sql function. Ignore it.