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.6 -r1.6.2.1
--- openacs-4/packages/search/tcl/search-procs.tcl	21 Nov 2001 04:51:52 -0000	1.6
+++ openacs-4/packages/search/tcl/search-procs.tcl	13 Mar 2002 01:52:24 -0000	1.6.2.1
@@ -75,7 +75,9 @@
 	    set data [db_blob_get data "select '$content' as content, 'file' as storage_type"]
 	}
 	lob {
-	    set data [db_blob_get data "select $content as content, 'lob' as storage_type"]
+            db_transaction {
+	        set data [db_blob_get data "select $content as content, 'lob' as storage_type"]
+            }
 	}
     }