Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl	10 Oct 2003 12:25:51 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl	27 Oct 2014 16:39:53 -0000	1.6
@@ -64,6 +64,6 @@
 }
 set number_elements [util_commify_number $number_elements]
 
-set admin_p [ad_permission_p $segment_id "admin"]
+set admin_p [permission::permission_p -object_id $segment_id -privilege "admin"]
 
 ad_return_template