Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.90.2.27 -r1.90.2.28
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	17 Feb 2022 20:19:06 -0000	1.90.2.27
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	27 Nov 2022 10:52:26 -0000	1.90.2.28
@@ -614,8 +614,7 @@
     (which at least KDE also knows how to handle)
 } {
     if {$path eq ""} {
-        set path [ad_tmpnam]
-        file mkdir $path
+        set path [ad_mktmpdir]
     }
 
     db_1row select_object_metadata {}
@@ -645,8 +644,7 @@
     publish an object to the filesystem
 } {
     if {$path eq ""} {
-        set path [ad_tmpnam]
-        file mkdir $path
+        set path [ad_mktmpdir]
     }
 
     db_1row select_object_metadata {}