Index: openacs-4/packages/acs-subsite/www/admin/groups/change-join-policy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/change-join-policy.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/www/admin/groups/change-join-policy.tcl	6 Jun 2018 22:58:09 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/admin/groups/change-join-policy.tcl	7 Jun 2018 17:30:17 -0000	1.7
@@ -20,7 +20,7 @@
     possible_join_policies:onevalue
 } -validate {
     groups_exists_p -requires {group_id:notnull} {
-        if { ![party::permission_p -privilege admin $group_id] } {
+        if { ![permission::permission_p -object_id $group_id -privilege "admin"] } {
             ad_complain "The group either does not exist or you do not have permission to administer it"
         }
     }