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.8 -r1.9
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl	21 Jan 2018 00:35:29 -0000	1.8
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl	7 Jun 2018 17:41:01 -0000	1.9
@@ -17,14 +17,14 @@
     admin_p:onevalue
 } -validate {
     segment_exists_p -requires {segment_id:notnull} {
-	if { ![rel_segments_permission_p $segment_id] } {
-	    ad_complain "The segment either does not exist or you do not have permission to view it"
-	}
+        if { ![permission::permission_p -object_id $segment_id -privilege "read"] } {
+            ad_complain "The segment either does not exist or you do not have permission to view it"
+        }
     }
     segment_in_scope_p -requires {segment_id:notnull segment_exists_p} {
-	if { ![application_group::contains_segment_p -segment_id $segment_id]} {
-	    ad_complain "The segment either does not exist or does not belong to this subsite."
-	}
+        if { ![application_group::contains_segment_p -segment_id $segment_id]} {
+            ad_complain "The segment either does not exist or does not belong to this subsite."
+        }
     }
 }