Index: openacs-4/packages/file-storage/www/file-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-add.tcl,v
diff -u -r1.28.2.6 -r1.28.2.7
--- openacs-4/packages/file-storage/www/file-add.tcl	24 Aug 2022 08:58:59 -0000	1.28.2.6
+++ openacs-4/packages/file-storage/www/file-add.tcl	27 Nov 2022 10:52:26 -0000	1.28.2.7
@@ -187,8 +187,7 @@
             ad_script_abort
         }
 
-        set path [ad_tmpnam]
-        file mkdir $path
+        set path [ad_mktmpdir]
 
         if {[catch { exec $unpack_binary -jd $path ${upload_file.tmpfile} } errMsg]} {
             #
@@ -224,8 +223,7 @@
         }
         # create a temporary file to import from user entered HTML
         set mime_type text/html
-        set tmp_filename [ad_tmpnam]
-        set fd [open $tmp_filename w]
+        set fd [ad_opentmpfile tmp_filename]
         puts $fd $content_body
         close $fd
         set upload_files [list $title]