Index: openacs-4/packages/file-storage/tcl/test/webtest-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/test/Attic/webtest-procs.tcl,v
diff -u -r1.1.2.13 -r1.1.2.14
--- openacs-4/packages/file-storage/tcl/test/webtest-procs.tcl	31 Aug 2022 22:41:13 -0000	1.1.2.13
+++ openacs-4/packages/file-storage/tcl/test/webtest-procs.tcl	27 Nov 2022 10:52:26 -0000	1.1.2.14
@@ -101,8 +101,7 @@
 
         # A 'real' simulation would actually upload a file via
         # multipart request, but this is enough for testing.
-        set tmpfile [ad_tmpnam]
-        set wfd [open $tmpfile w]
+        set wfd [ad_opentmpfile tmpfile]
         puts $wfd 1234
         close $wfd