Index: openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl,v
diff -u -N -r1.12.4.1 -r1.12.4.2
--- openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl	27 Aug 2013 12:20:37 -0000	1.12.4.1
+++ openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl	6 Sep 2013 12:06:50 -0000	1.12.4.2
@@ -6,7 +6,7 @@
 
 set user_id [ad_conn user_id]
 
-set admin_p [ad_permission_p $object_id admin]
+set admin_p [permission::permission_p -object_id $object_id -privilege admin]
 
 if { (![info exists return_url] || $return_url eq "") } {
     set return_url [ad_return_url]