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.93 -r1.94
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	26 Jun 2006 07:35:28 -0000	1.93
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	26 Jun 2006 21:55:16 -0000	1.94
@@ -1026,7 +1026,7 @@
     db_transaction {
 	# contact lists
 	foreach list_id [db_list get_lists { select list_id from contact_list_members where party_id = :from_party_id }] {
-	    contact::list::member_add -list_id $list_id -party_id $new_party_id
+	    contact::list::member_add -list_id $list_id -party_id $to_party_id
 	    contact::list::member_delete -list_id $list_id -party_id $from_party_id
 	}