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.55.2.6 -r1.55.2.7
--- openacs-4/packages/search/tcl/search-procs.tcl	2 Mar 2021 08:08:28 -0000	1.55.2.6
+++ openacs-4/packages/search/tcl/search-procs.tcl	2 Mar 2021 12:01:31 -0000	1.55.2.7
@@ -283,7 +283,7 @@
             set data $content
         }
         file {
-            set data [cr_fs_path][db_string get_filename "select content from cr_revisions where revision_id=:object_id"]
+            set data [content::revision::get_cr_file_path -revision_id $object_id]
             set passing_style file
         }
         lob {