Index: openacs-4/packages/chat/www/room-enter.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-enter.tcl,v
diff -u -r1.13 -r1.13.2.1
--- openacs-4/packages/chat/www/room-enter.tcl	1 Oct 2018 12:27:32 -0000	1.13
+++ openacs-4/packages/chat/www/room-enter.tcl	2 Mar 2019 17:51:10 -0000	1.13.2.1
@@ -16,7 +16,8 @@
 set write_p [permission::permission_p -object_id $room_id -privilege "chat_write"]
 set ban_p   [permission::permission_p -object_id $room_id -privilege "chat_ban"]
 ns_log notice "--query ban $ban_p: permission::permission_p -object_id $room_id -privilege chat_ban -party_id [ad_conn user_id]"
-set active  [room_active_status $room_id]
+set r [::xo::db::Class get_instance_from_db -id $room_id]
+set active  [$r set active_p]
 
 if { ($read_p == 0 && $write_p == 0) || ($ban_p == 1) || ($active == "f") } {
     #Display unauthorize privilege page.