Index: openacs-4/packages/contacts/tcl/contact-search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-search-procs.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/contacts/tcl/contact-search-procs.tcl	15 Jul 2005 01:42:25 -0000	1.14
+++ openacs-4/packages/contacts/tcl/contact-search-procs.tcl	15 Jul 2005 21:01:52 -0000	1.15
@@ -172,7 +172,7 @@
       from parties left join cr_items on (parties.party_id = cr_items.item_id) left join cr_revisions on (cr_items.latest_revision = cr_revisions.revision_id ),
            group_distinct_member_map
      where parties.party_id = group_distinct_member_map.member_id
-       and group_distinct_member_map.group_id = '-2'
+       and group_distinct_member_map.group_id = '[contacts::default_group]'
     [contact::search_clause -and -search_id $search_id -query "" -party_id "parties.party_id" -revision_id "revision_id"]
     "
     if { [exists_and_not_null query] } {