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.12 -r1.13
--- openacs-4/packages/contacts/www/contact-rels.tcl	19 Jun 2005 09:07:04 -0000	1.12
+++ openacs-4/packages/contacts/www/contact-rels.tcl	6 Jul 2005 23:40:25 -0000	1.13
@@ -27,6 +27,9 @@
 }
 
 set contact_type [contact::type -party_id $party_id]
+if { $contact_type == "user" } {
+    set contact_type "person"
+}
 set contact_name [contact::name -party_id $party_id]
 set contact_url  [contact::url  -party_id $party_id]