Index: openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl,v
diff -u -N -r1.24 -r1.25
--- openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl	25 Apr 2018 08:52:58 -0000	1.24
+++ openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl	5 Jun 2018 10:58:24 -0000	1.25
@@ -43,7 +43,7 @@
         if {[dict get $auth auth_status] ne "ok"} {
           :debug "auth status [dict get $auth auth_status]"
           set :user_id 0
-          throw {AUTH UNAUTHORIZED {unauthorized}} $auth(auth_status)
+          throw {AUTH UNAUTHORIZED {unauthorized}} [dict get $auth auth_status]
         }
       }
       :debug "auth_check user_id='[dict get $auth user_id]'"