Index: openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl,v
diff -u -r1.19.2.3 -r1.19.2.4
--- openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl	28 Oct 2020 15:39:19 -0000	1.19.2.3
+++ openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl	28 Dec 2021 14:27:18 -0000	1.19.2.4
@@ -845,9 +845,7 @@
 } {
 
   set extra_args [list]
-  for { set i 0 } { $i < [ns_set size $params] } { incr i } {
-    set key   [ns_set key $params $i]
-    set value [ns_set value $params $i]
+  foreach {key value} [ns_set array $params] {
     if { $key ni $exclusion_list } {
       lappend extra_args $key $value
     }