Index: openacs-4/packages/acs-subsite/www/permissions/revoke.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/revoke.tcl,v
diff -u -r1.4 -r1.4.22.1
--- openacs-4/packages/acs-subsite/www/permissions/revoke.tcl	17 May 2003 10:02:04 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/permissions/revoke.tcl	6 Sep 2013 16:01:47 -0000	1.4.22.1
@@ -11,7 +11,7 @@
   {application_url ""}
 }
 
-ad_require_permission $object_id admin
+permission::require_permission -object_id $object_id -privilege admin
 
 if {[llength $revoke_list] == 0} {
   ad_returnredirect "./?[export_url_vars object_id]"