Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v
diff -u -r1.67 -r1.68
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl 1 Oct 2017 11:57:04 -0000 1.67
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl 4 Oct 2017 08:53:35 -0000 1.68
@@ -358,10 +358,10 @@
# if user not authorized, use peer address as requestor key
if {${:requestor} == 0} {
set :requestor $pa
- set user "client from $pa"
+ set :user "client from $pa"
} else {
set user_url [acs_community_member_admin_url -user_id ${:requestor}]
- set user "${:requestor}"
+ set :user "${:requestor}"
}
#my log "--i requestor = ${:requestor}"