Index: openacs-4/packages/contacts/lib/contacts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/contacts/lib/contacts.tcl	15 Jul 2005 03:33:20 -0000	1.16
+++ openacs-4/packages/contacts/lib/contacts.tcl	15 Jul 2005 21:01:52 -0000	1.17
@@ -32,7 +32,7 @@
 
 set group_by_group_id ""
 if { ![exists_and_not_null group_id] } {
-    set where_group_id " = -2"
+    set where_group_id " = [contacts::default_group]"
 } else {
     if {[llength $group_id] > 1} {
 	set where_group_id " IN ('[join $group_id "','"]')"