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.4 -r1.23.2.5 --- openacs-4/packages/chat/tcl/chat-ajax-procs.tcl 27 Mar 2019 17:27:36 -0000 1.23.2.4 +++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl 28 Mar 2019 13:47:39 -0000 1.23.2.5 @@ -69,9 +69,11 @@ Chat instproc init {} { # Check read permissions - permission::require_permission -object_id ${:chat_id} -privilege "chat_read" - set ban_p [permission::permission_p -object_id ${:chat_id} -privilege "chat_ban"] - if {$ban_p} { + 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 }