Index: openacs-4/packages/chat/www/room-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-delete-2.tcl,v
diff -u -r1.1.1.1 -r1.1.1.1.8.1
--- openacs-4/packages/chat/www/room-delete-2.tcl	20 Apr 2001 20:51:08 -0000	1.1.1.1
+++ openacs-4/packages/chat/www/room-delete-2.tcl	30 Nov 2003 23:10:22 -0000	1.1.1.1.8.1
@@ -12,7 +12,7 @@
 ad_require_permission $room_id chat_room_delete
 
 if { [catch {chat_room_delete $room_id} errmsg] } {
-    ad_return_complaint "Delete room failed." $errmsg
+    ad_return_complaint 1 "Delete room failed: $errmsg"
 }
 
 ad_returnredirect .