Index: openacs-4/packages/contacts/lib/contact-attributes.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-attributes.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/contacts/lib/contact-attributes.tcl	27 Apr 2006 06:37:21 -0000	1.8
+++ openacs-4/packages/contacts/lib/contact-attributes.tcl	22 Jun 2007 05:33:11 -0000	1.9
@@ -19,7 +19,7 @@
 }
 
 if {[empty_string_p $package_id]} {
-    set package_id [ad_conn package_id]
+    set package_id [contact::package_id -party_id $party_id]
 }
 
 set object_type [util_memoize [list acs_object_type $party_id]]
@@ -42,8 +42,6 @@
     set revision_id [contact::live_revision -party_id $party_id]
 }
 
-
-
 # The categories multirow contains all categories for all trees and is
 # prepared for easy access later on.