Index: openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl,v
diff -u -r1.27 -r1.27.4.1
--- openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl	18 Apr 2011 17:24:30 -0000	1.27
+++ openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl	6 Sep 2013 16:01:46 -0000	1.27.4.1
@@ -29,7 +29,7 @@
 set object_id $node(object_id)
 
 if {$object_id ne ""} {
-    ad_require_permission $object_id admin
+    permission::require_permission -object_id $object_id -privilege admin
 }
 
 if {$new_parent ne ""} {