Index: openacs-4/packages/acs-subsite/tcl/group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs.tcl,v
diff -u -N -r1.45 -r1.46
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	7 Jun 2018 16:52:40 -0000	1.45
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	7 Jun 2018 17:30:17 -0000	1.46
@@ -734,7 +734,7 @@
     group::get -group_id $group_id -array group
 
     if { !$no_perm_check_p } {
-        set create_p [party::permission_p -privilege create $group_id]
+        set create_p [permission::permission_p -object_id $group_id -privilege "create"]
         if { $group(join_policy) eq "closed" && !$create_p } {
             error "You do not have permission to add members to the group '$group(group_name)'"
         }