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 -N -r1.75.2.3 -r1.75.2.4
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	4 Jul 2019 11:20:04 -0000	1.75.2.3
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	4 Jul 2019 18:09:42 -0000	1.75.2.4
@@ -331,7 +331,7 @@
     if {[info exists :untrusted_user_id]} {
       return ${:untrusted_user_id}
     }
-    return [:user_id]
+    return ${:user_id}
   }
 
   ConnectionContext instproc returnredirect {-allow_complete_url:switch url} {
@@ -440,7 +440,7 @@
       set granted [permission::permission_p -no_login -party_id $party_id \
                        -object_id $object_id \
                        -privilege $privilege]
-      #:msg "--p lookup $key ==> $granted uid=[:user_id] uuid=${:untrusted_user_id}"
+      #:msg "--p lookup $key ==> $granted uid=${:user_id} uuid=${:untrusted_user_id}"
       if {$granted || ${:user_id} == ${:untrusted_user_id}} {
         return $granted
       }