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.8 -r1.55.2.9
--- openacs-4/packages/search/tcl/search-procs.tcl	1 Mar 2022 09:18:44 -0000	1.55.2.8
+++ openacs-4/packages/search/tcl/search-procs.tcl	29 Nov 2022 18:34:00 -0000	1.55.2.9
@@ -320,8 +320,7 @@
         # Write content to a file and let the filter below extract the
         # words for the index from the file.
         #
-        set tmp_filename [ad_tmpnam]
-        set f [open $tmp_filename w]
+        set f [ad_opentmpfile tmp_filename]
         puts $f $data
         close $f
         set data $tmp_filename