Index: openacs-4/packages/contacts/lib/contacts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/lib/contacts.tcl	12 Jun 2005 21:23:16 -0000	1.1
+++ openacs-4/packages/contacts/lib/contacts.tcl	13 Jun 2005 18:59:05 -0000	1.2
@@ -13,6 +13,7 @@
     {page:optional}
     {page_size:integer "25"}
     {tasks_interval:integer "7"}
+    {package_id ""}
 }
 
 
@@ -29,7 +30,7 @@
     }
 } else {
 #    set group_id [application_group::group_id_from_package_id -package_id [ad_conn subsite_id]]
-    set group_id [contacts::default_group]
+    set group_id [contacts::default_group -package_id $package_id]
     set query_id $group_id
     set query_type "group"
     if { ![exists_and_not_null group_id] } {