Index: openacs-4/packages/contacts/tcl/contact-search-condition-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-search-condition-type-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/contacts/tcl/contact-search-condition-type-procs.tcl	12 May 2006 21:10:45 -0000	1.27
+++ openacs-4/packages/contacts/tcl/contact-search-condition-type-procs.tcl	15 May 2006 18:55:31 -0000	1.28
@@ -250,7 +250,7 @@
 
             if { !$only_multiple_p } {
 		if { $object_type eq "" } { set object_type "party" }
-		set list_ids [contact::util::get_ams_list_ids -privilege "read" -object_type $object_type]
+		set list_ids [contact::util::get_ams_list_ids -privilege "read" -object_type $object_type -package_id $package_id]
 		if { [llength $list_ids] == 0 } {
 		    return {}
 		}