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 -N -r1.47.6.1 -r1.47.6.2
--- openacs-4/packages/search/tcl/search-procs.tcl	26 Aug 2013 07:57:14 -0000	1.47.6.1
+++ openacs-4/packages/search/tcl/search-procs.tcl	26 Oct 2013 08:56:56 -0000	1.47.6.2
@@ -121,7 +121,7 @@
             }
         }
 
-        foreach {object_id event_date event} $row { break }
+        lassign $row object_id event_date event
         array unset datasource
         switch -- $event {
             UPDATE -