Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v diff -u -r1.153.2.56 -r1.153.2.57 --- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 28 Mar 2023 14:04:51 -0000 1.153.2.56 +++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 3 May 2023 12:34:15 -0000 1.153.2.57 @@ -820,13 +820,13 @@ # # Provide context information for background writer. # - set requestor [expr {$::ad_conn(user_id) == 0 ? [ad_conn peeraddr] : $::ad_conn(user_id)}] + set requester [expr {$::ad_conn(user_id) == 0 ? [ad_conn peeraddr] : $::ad_conn(user_id)}] # # Leave for the time being the catch, since a fail of the # primitive function has no user-level consequences, and no # abort operations can happen in the called functions. # - catch {ns_conn clientdata [list $requestor [ns_conn url]]} + catch {ns_conn clientdata [list $requester [ns_conn url]]} } # Who's online