Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v
diff -u -N -r1.120 -r1.121
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	21 Feb 2011 14:27:27 -0000	1.120
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	6 Jun 2018 23:02:01 -0000	1.121
@@ -1023,7 +1023,7 @@
     group::get -group_id $group_id -array group
 
     if { !$no_perm_check_p } {
-        set create_p [group::permission_p -privilege create $group_id]
+        set create_p [party::permission_p -privilege create $group_id]
         if { $group(join_policy) eq "closed" && !$create_p } {
             error "You do not have permission to add members to the group '$group(group_name)'"
         }