Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/delete.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/delete.tcl	7 Aug 2017 23:47:58 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/delete.tcl	7 Jun 2018 17:41:01 -0000	1.7
@@ -16,9 +16,9 @@
     segment_name:onevalue
 } -validate {
     segment_exists_p -requires {segment_id:notnull} {
-	if { ![rel_segments_permission_p -privilege delete $segment_id] } {
-	    ad_complain "The segment either does not exist or you do not have permission to delete it"
-	}
+        if { ![permission::permission_p -object_id $segment_id -privilege "delete"] } {
+            ad_complain "The segment either does not exist or you do not have permission to delete it"
+        }
     }
 }