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 -r1.13 -r1.14
--- openacs-4/packages/contacts/tcl/contact-search-procs.tcl	1 Jul 2005 22:47:56 -0000	1.13
+++ openacs-4/packages/contacts/tcl/contact-search-procs.tcl	15 Jul 2005 01:42:25 -0000	1.14
@@ -111,7 +111,9 @@
     if { ![exists_and_not_null user_id] } {
         set user_id [ad_conn user_id]
     }
-    db_1row log_search {}
+    if { [contact::search::exists_p -search_id $search_id] } {
+	db_1row log_search {}
+    }
 }
 
 ad_proc -public contact::search::results_count {