Index: openacs-4/packages/chat/www/room-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-delete.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/chat/www/room-delete.tcl	19 Nov 2007 01:14:16 -0000	1.5
+++ openacs-4/packages/chat/www/room-delete.tcl	17 Jun 2016 17:36:11 -0000	1.6
@@ -13,7 +13,7 @@
     context_bar:onevalue
 }
 
-ad_require_permission $room_id chat_room_delete
+permission::require_permission -object_id $room_id -privilege chat_room_delete
 
 set context_bar [list [list "room?room_id=$room_id" "[_ chat.Room_Information]"] "[_ chat.Delete_room]"]