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 -N -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
         }