Index: openacs-4/packages/contacts/www/contact-rels.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-rels.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/contacts/www/contact-rels.tcl	21 Jul 2005 20:18:40 -0000	1.17
+++ openacs-4/packages/contacts/www/contact-rels.tcl	16 Sep 2005 15:37:56 -0000	1.18
@@ -174,7 +174,7 @@
 } -on_submit {
     if {[exists_and_not_null add]} {
 	set default_group [contacts::default_group]
-	if {[contact::organization_p -party_id $party_id]} {
+	if {[organization::organization_p -party_id $party_id]} {
 	    ad_returnredirect [export_vars -base "/contacts/add/person" -url {{group_ids $default_group} {object_id_two "$party_id"} role_two}]
 	} else {
 	    ad_returnredirect [export_vars -base "/contacts/add/organization" -url {{group_ids $default_group} {object_id_two "$party_id"} role_two}]