Index: openacs-4/packages/search/tcl/syndicate-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/syndicate-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/search/tcl/syndicate-procs.tcl	29 Mar 2005 23:39:45 -0000	1.1
+++ openacs-4/packages/search/tcl/syndicate-procs.tcl	10 Jan 2007 21:22:14 -0000	1.2
@@ -19,7 +19,7 @@
     if {![parameter::get -boolean -package_id [apm_package_id_from_key search] -parameter Syndicate -default 0]} {
         return
     }
-    if {[string equal $action DELETE]} {
+    if {$action eq "DELETE"} {
         db_dml nuke {delete from syndication where object_id = :object_id}
     } else {
         upvar $datasource d