Index: openacs-4/packages/chat/www/message-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/message-delete-2.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/chat/www/message-delete-2.tcl	20 Jun 2016 08:37:04 -0000	1.8
+++ openacs-4/packages/chat/www/message-delete-2.tcl	7 Aug 2017 23:48:07 -0000	1.9
@@ -13,8 +13,9 @@
 
 if { [catch {chat_room_message_delete $room_id} errmsg] } {
     ad_return_complaint 1 "[_ chat.Delete_messages_failed]: $errmsg"
+    ad_script_abort
 }
 
 ::chat::Chat flush_messages -chat_id $room_id
 
-ad_returnredirect .
\ No newline at end of file
+ad_returnredirect .