Index: openacs-4/packages/acs-subsite/www/admin/parties/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/parties/new.tcl,v
diff -u -r1.9.2.4 -r1.9.2.5
--- openacs-4/packages/acs-subsite/www/admin/parties/new.tcl	20 May 2016 20:02:44 -0000	1.9.2.4
+++ openacs-4/packages/acs-subsite/www/admin/parties/new.tcl	10 Jun 2016 12:14:44 -0000	1.9.2.5
@@ -176,10 +176,15 @@
 if { [template::form is_valid add_party] } {
 
     db_transaction {
-	party::new -email ${party.email} -form_id add_party -variable_prefix party -party_id $party_id -context_id [ad_conn package_id] $party_type 
+	set party_id [party::new \
+                          -email ${party.email} \
+                          -form_id add_party \
+                          -variable_prefix party \
+                          -party_id $party_id \
+                          -context_id [ad_conn package_id] \
+                          $party_type]
 
 	relation_add -member_state $member_state $add_with_rel_type $add_to_group_id $party_id
-
     }
 
     # there may be more segments to put this new party in before the