Index: openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl	14 Jun 2005 07:26:26 -0000	1.3
+++ openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl	14 Jun 2005 09:39:19 -0000	1.4
@@ -36,7 +36,7 @@
 
 
     # This is a check for the customer and supplier id if P/O is installed.
-    if {[info exists im_profiles_all]} {
+    if {[apm_package_enabled_p intranet-core]} {
 	set supplier_id [db_string freelancer_group "select group_id from groups where group_name = 'Freelancers'"]
 	set customers_id [db_string customers_group "select group_id from groups where group_name = 'Customers'"]
     } else {