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.5 -r1.6
--- openacs-4/packages/chat/www/room-delete-2.tcl	19 Nov 2007 01:14:16 -0000	1.5
+++ openacs-4/packages/chat/www/room-delete-2.tcl	17 Jun 2016 17:36:11 -0000	1.6
@@ -9,7 +9,7 @@
     room_id:integer,notnull
 }
 
-ad_require_permission $room_id chat_room_delete
+permission::require_permission -object_id $room_id -privilege chat_room_delete
 
 if { [catch {chat_room_delete $room_id} errmsg] } {
     ad_return_complaint 1 "[_ chat.Delete_room_failed]: $errmsg"