Index: openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl,v
diff -u -r1.10.2.19 -r1.10.2.20
--- openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	9 Sep 2022 13:03:10 -0000	1.10.2.19
+++ openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	27 Nov 2022 10:52:26 -0000	1.10.2.20
@@ -26,9 +26,8 @@
                 fetch first 1 rows only
             }
 
-            set tmp_filename [ad_tmpnam]
             set content "This is a test file"
-            set wfd [open $tmp_filename w]
+            set wfd [ad_opentmpfile tmp_filename]
             puts $wfd $content
             close $wfd
 
@@ -542,8 +541,7 @@
         aa_true "add form was returned" {[llength $form] > 2}
 
         set file_name "I am not a tmpfile"
-        set notmpfile [ad_tmpnam]
-        set wfd [open $notmpfile w]
+        set wfd [ad_opentmpfile notmpfile]
         puts $wfd "I am not a real tmpfile!"
         close $wfd
         set notmpfile_checksum [ns_md file $notmpfile]