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.6 -r1.7
--- openacs-4/packages/contacts/tcl/contact-search-procs.tcl	14 Jun 2005 06:08:28 -0000	1.6
+++ openacs-4/packages/contacts/tcl/contact-search-procs.tcl	14 Jun 2005 06:51:54 -0000	1.7
@@ -61,7 +61,7 @@
 } {
     create a contact search
 } {
-    return [db_0or1row delete_it { update contact_searches set deleted_p = 't' where search_id = :search_id }]
+    db_dml delete_it { update contact_searches set deleted_p = 't' where search_id = :search_id }
 }
 
 ad_proc -public contact::search::exists_p {