Index: openacs-4/packages/search/tcl/search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/search-procs.tcl,v
diff -u -r1.42.2.2 -r1.42.2.3
--- openacs-4/packages/search/tcl/search-procs.tcl	12 Mar 2008 22:26:20 -0000	1.42.2.2
+++ openacs-4/packages/search/tcl/search-procs.tcl	19 Mar 2008 18:59:43 -0000	1.42.2.3
@@ -200,10 +200,13 @@
                     unset seen($object_id)
                 }
             }
-            default {
-                search::dequeue -object_id $object_id -event_date $event_date -event $event
-            }
         }
+
+        # Don't put that dequeue in a default block of the swith above
+        # otherwise objects with insert/update and delete operations in the same
+        # run would crash and never get dequeued
+
+        search::dequeue -object_id $object_id -event_date $event_date -event $event
     }
 
 }