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.25 -r1.26
--- openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	19 Nov 2018 16:35:12 -0000	1.25
+++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	20 Nov 2018 17:46:20 -0000	1.26
@@ -55,6 +55,11 @@
     }
 
     Chat instproc init {} {
+        set ban_p [permission::permission_p -object_id ${:chat_id} -privilege "chat_ban"]
+        if {$ban_p} {
+            ad_return_forbidden
+            ad_script_abort
+        }
         if {[chat_room_exists_p ${:chat_id}]} {
             chat_room_get -room_id ${:chat_id} -array c
             set :login_messages_p  $c(login_messages_p)