Index: openacs-4/packages/chat/www/chat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat.tcl,v
diff -u -r1.3 -r1.3.6.1
--- openacs-4/packages/chat/www/chat.tcl	18 Sep 2002 13:03:47 -0000	1.3
+++ openacs-4/packages/chat/www/chat.tcl	30 Nov 2003 23:10:22 -0000	1.3.6.1
@@ -26,7 +26,7 @@
 }
 
 if { [catch {set room_name [chat_room_name $room_id]} errmsg] } {
-    ad_return_complaint "Room not found" "Invalid room id"
+    ad_return_complaint 1 "Room not found, Invalid room id"
 }
 
 set context_bar [list $room_name]