Index: openacs-4/packages/contacts/www/contact.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/contacts/www/contact.tcl	10 Jun 2005 06:32:17 -0000	1.9
+++ openacs-4/packages/contacts/www/contact.tcl	14 Jun 2005 20:30:05 -0000	1.10
@@ -93,7 +93,7 @@
 
 if { [string is false [empty_string_p [info procs "::application_data_link::get_linked"]]] } {
 
-    set project_id [application_data_link::get_linked -from_object_id $party_id -to_object_type "content_item"]
+    set project_id [lindex [application_data_link::get_linked -from_object_id $party_id -to_object_type "pm_project"] 0]
 
     if {$project_id > 0} {
 	set package_id [acs_object::get_element -object_id $project_id -element package_id]