Index: openacs-4/packages/contacts/lib/contact-relationships.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-relationships.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/contacts/lib/contact-relationships.tcl	27 Jul 2005 13:23:01 -0000	1.3
+++ openacs-4/packages/contacts/lib/contact-relationships.tcl	16 Sep 2005 15:38:18 -0000	1.4
@@ -27,7 +27,7 @@
 
 db_foreach get_relationships {} {
     set contact_url [contact::url -party_id $other_party_id]
-    if {[contact::organization_p -party_id $party_id]} {
+    if {[organization::organization_p -party_id $party_id]} {
 	set other_object_type "person"
     } else {
 	set other_object_type "organization"