Index: openacs-4/packages/contacts/lib/contact-relationships-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-relationships-postgresql.xql,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/contacts/lib/contact-relationships-postgresql.xql	18 May 2006 18:02:59 -0000	1.10
+++ openacs-4/packages/contacts/lib/contact-relationships-postgresql.xql	29 May 2006 21:07:42 -0000	1.11
@@ -17,7 +17,7 @@
             and object_id_one = :party_id
 	    and acs_rel_types.role_two = acs_rel_roles.role
 	    and object_id_two = group_distinct_member_map.member_id
-	    and group_distinct_member_map.group_id in ('-2')
+	    and group_distinct_member_map.group_id in ([template::util::tcl_to_sql_list [contacts::default_groups -package_id $package_id]])
             and acs_rels.rel_type in ( select object_type from acs_object_types where supertype = 'contact_rel')
 	 union 
 	 select contact__name(object_id_one,'t') as other_name,
@@ -33,7 +33,7 @@
             and object_id_two = :party_id
 	    and acs_rel_types.role_one = acs_rel_roles.role
 	    and object_id_one = group_distinct_member_map.member_id
-	    and group_distinct_member_map.group_id in ('-2')
+	    and group_distinct_member_map.group_id in ([template::util::tcl_to_sql_list [contacts::default_groups -package_id $package_id]])
             and acs_rels.rel_type in ( select object_type from acs_object_types where supertype = 'contact_rel')
        ) rels_temp, acs_objects
 where rels_temp.rel_id = acs_objects.object_id