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 } }