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 -N -r1.8.2.1 -r1.8.2.2 --- openacs-4/packages/chat/www/room-delete-2.tcl 14 Feb 2019 16:15:01 -0000 1.8.2.1 +++ openacs-4/packages/chat/www/room-delete-2.tcl 2 Mar 2019 17:51:10 -0000 1.8.2.2 @@ -11,7 +11,10 @@ permission::require_permission -object_id $room_id -privilege chat_room_delete -if { [catch {chat_room_delete $room_id} errmsg] } { +if { [catch { + set r [::xo::db::Class get_instance_from_db -id $room_id] + $r delete +} errmsg] } { ad_return_complaint 1 "[_ chat.Delete_room_failed]: $errmsg" ad_script_abort }