Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v diff -u -r1.64.2.11 -r1.64.2.12 --- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 28 Dec 2021 14:53:15 -0000 1.64.2.11 +++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 28 Dec 2021 17:02:25 -0000 1.64.2.12 @@ -457,11 +457,8 @@ if { [ds_enabled_p] && [ds_collection_enabled_p] } { ds_add conn end [ns_time] endclicks [clock clicks -microseconds] - for { set i 0 } { $i < [ns_set size [ad_conn outputheaders]] } { incr i } { - ds_add oheaders \ - [ns_set key [ad_conn outputheaders] $i] \ - [ns_set value [ad_conn outputheaders] $i] - } + ds_add oheaders \ + {*}[ns_set array [ad_conn outputheaders]] foreach param { browser_id validated session_id user_id } { global ad_sec_$param