Index: openacs-4/packages/chat/tcl/chat-ajax-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-ajax-procs.tcl,v diff -u -r1.23.2.5 -r1.23.2.6 --- openacs-4/packages/chat/tcl/chat-ajax-procs.tcl 28 Mar 2019 13:47:39 -0000 1.23.2.5 +++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl 28 Mar 2019 14:04:44 -0000 1.23.2.6 @@ -68,14 +68,15 @@ } Chat instproc init {} { - # Check read permissions - set forbidden_p [expr { - ![permission::permission_p -object_id ${:chat_id} -privilege "chat_read"] || - [permission::permission_p -object_id ${:chat_id} -privilege "chat_ban"] - }] - if {$forbidden_p} { - ad_return_forbidden - ad_script_abort + # Instantiating a chat outside a connection context happens + # e.g. in the sweeper. We don't want to check permissions in + # this case. + if {[ns_conn isconnected]} { + permission::require_permission -object_id ${:chat_id} -privilege "chat_read" + if {[permission::permission_p -object_id ${:chat_id} -privilege "chat_ban"]} { + ad_return_forbidden + ad_script_abort + } } next }