Index: openacs-4/packages/acs-subsite/www/admin/relations/change-member-state.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/relations/change-member-state.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/www/admin/relations/change-member-state.tcl	19 Jan 2018 14:09:48 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/admin/relations/change-member-state.tcl	7 Jun 2018 17:46:16 -0000	1.6
@@ -14,14 +14,14 @@
     {return_url:localurl ""}
 } -validate {
     permission_p -requires {rel_id:notnull} {
-	if { ![relation_permission_p -privilege admin $rel_id] } {
-	    ad_complain "The relation either does not exist or you do not have permission to administer it"
-	}
+        if { ![permission::permission_p -object_id $rel_id -privilege "admin"] } {
+            ad_complain "The relation either does not exist or you do not have permission to administer it"
+        }
     }
     relation_in_scope_p -requires {rel_id:notnull permission_p} {
-	if { ![application_group::contains_relation_p -rel_id $rel_id]} {
-	    ad_complain "The relation either does not exist or does not belong to this subsite."
-	}
+        if { ![application_group::contains_relation_p -rel_id $rel_id]} {
+            ad_complain "The relation either does not exist or does not belong to this subsite."
+        }
     }
 }