Index: openacs-4/packages/contacts/www/contact-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-edit.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/contacts/www/contact-edit.tcl	4 Oct 2005 02:54:28 -0000	1.11
+++ openacs-4/packages/contacts/www/contact-edit.tcl	5 Oct 2005 16:18:49 -0000	1.12
@@ -147,7 +147,7 @@
 	if {$object_type == "organization"} {
 	    callback contact::organization_new -package_id $package_id -contact_id $party_id -name $name
 	} else {
-	    callback contact::person_new -package_id $package_id -person_id $party_id
+	    callback contact::person_add -package_id $package_id -person_id $party_id
 	}
     } -after_submit {
 	contact::flush -party_id $party_id