Index: openacs.org-dev/packages/chat/www/chat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/chat/www/chat.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/chat/www/chat.tcl	9 Jul 2002 17:35:02 -0000	1.1.1.1
+++ openacs.org-dev/packages/chat/www/chat.tcl	8 Oct 2002 15:46:58 -0000	1.1.1.2
@@ -29,7 +29,7 @@
     ad_return_complaint "Room not found" "Invalid room id"
 }
 
-set context_bar [ad_context_bar $room_name]
+set context_bar [list $room_name]
 
 set user_id [ad_conn user_id]
 
@@ -49,6 +49,7 @@
 if { ($read_p == "0" && $write_p == "0") || ($ban_p == "1") } {
     #Display unauthorize privilege page.
     ad_returnredirect unauthorized
+    ad_script_abort
 }
 
 # Get chat screen name.