Index: openacs-4/packages/contacts/lib/searches.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/searches.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/lib/searches.tcl	8 Jul 2005 00:33:30 -0000	1.1
+++ openacs-4/packages/contacts/lib/searches.tcl	16 Apr 2006 10:45:56 -0000	1.2
@@ -10,7 +10,7 @@
 if { [site_node::get_package_url -package_key "tasks"] != "" } {
     set tasks_enabled_p 1
     db_foreach dbqd.contacts.www.index.public_searches {} {
-	if { [contact::search::results_count_not_cached -search_id $search_id -query $party_id] == "1" && $title != "All People" && $title != "All Organizations" } {
+	if { [contact::search::party_p -search_id $search_id -party_id $party_id -package_id $package_id] && $title != "All People" && $title != "All Organizations" } {
 	    multirow append public_searches $title [export_vars -base "../" -url {search_id}] 
 	}
     }