Index: openacs-4/packages/acs-subsite/www/admin/users/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/users/new.tcl,v
diff -u -N -r1.23 -r1.24
--- openacs-4/packages/acs-subsite/www/admin/users/new.tcl	6 Jun 2018 22:58:09 -0000	1.23
+++ openacs-4/packages/acs-subsite/www/admin/users/new.tcl	7 Jun 2018 17:30:17 -0000	1.24
@@ -36,7 +36,7 @@
 # We assume the group is on side 1...
 db_1row rel_type_info {}
 
-set create_p [party::permission_p -privilege create $add_to_group_id]
+set create_p [permission::permission_p -object_id $add_to_group_id -privilege "create"]
 
 # Membership relations have a member_state attribute that gets set
 # based on the group's join policy.
@@ -223,7 +223,7 @@
         if {[parameter::get -parameter NotifyAdminOfNewRegistrationsP -default 0]} {
 
             set creation_user [ad_conn user_id]
-            set user [acs_user::get -user_id $creation_user]            
+            set user [acs_user::get -user_id $creation_user]
             set creation_name "[dict get $user name] ([dict get $user email])"
 
             # we're supposed to notify the administrator when someone new registers