Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.tcl,v
diff -u -r1.1.16.1 -r1.1.16.2
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.tcl	6 Sep 2013 12:06:50 -0000	1.1.16.1
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.tcl	6 Sep 2013 16:01:45 -0000	1.1.16.2
@@ -1,5 +1,5 @@
 # included from elements.
-ad_require_permission $segment_id "read"
+permission::require_permission -object_id $segment_id -privilege "read"
 
 set write_p [permission::permission_p -object_id $segment_id -privilege "write"]