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.4 -r1.4.4.1
--- openacs-4/packages/acs-subsite/www/admin/parties/new.tcl	22 Sep 2003 20:16:41 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/parties/new.tcl	1 Jun 2004 15:35:04 -0000	1.4.4.1
@@ -187,7 +187,7 @@
     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 
 
-	relation_add -form_id add_party -variable_prefix rel -member_state $member_state $add_with_rel_type $add_to_group_id $party_id
+	relation_add -member_state $member_state $add_with_rel_type $add_to_group_id $party_id
 
     }