Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	10 Sep 2005 13:33:46 -0000	1.10
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	15 Sep 2005 22:47:10 -0000	1.11
@@ -30,6 +30,7 @@
 ad_proc -public -callback contact::person_new {
     {-package_id:required}
     {-contact_id:required}
+    {-party_id:required}
 } {
 }
 
Index: openacs-4/packages/contacts/www/contact-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-add.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/contacts/www/contact-add.tcl	24 Aug 2005 10:50:07 -0000	1.29
+++ openacs-4/packages/contacts/www/contact-add.tcl	15 Sep 2005 22:46:43 -0000	1.30
@@ -239,9 +239,8 @@
 	    }
 	    
 	    category::map_object -remove_old -object_id $party_id $cat_ids
-
 	    
-	    callback contact::person_new -package_id $package_id -contact_id $party_id
+	    callback contact::person_new -package_id $package_id -contact_id $object_id_two -party_id $party_id
 	    
 	} else {