Index: openacs-4/packages/acs-subsite/www/members/member-invite.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/member-invite.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/acs-subsite/www/members/member-invite.tcl	6 Jun 2018 22:58:09 -0000	1.14
+++ openacs-4/packages/acs-subsite/www/members/member-invite.tcl	7 Jun 2018 17:30:17 -0000	1.15
@@ -42,7 +42,7 @@
 }
 
 ad_form -extend -name user_search -on_submit {
-    set create_p [party::permission_p -privilege create $group_id]
+    set create_p [permission::permission_p -object_id $group_id -privilege "create"]
 
     if { $group_info(join_policy) eq "closed" && !$create_p} {
         ad_return_forbidden "Cannot invite members" "I'm sorry, but you're not allowed to invite members to this group"