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 -N -r1.90.2.35 -r1.90.2.36
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	17 Mar 2023 13:36:42 -0000	1.90.2.35
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	17 Mar 2023 15:00:37 -0000	1.90.2.36
@@ -534,7 +534,7 @@
     publish a file storage object to the filesystem
 } {
     if {$path eq ""} {
-        set path [ad_tmpnam]
+        set path [ad_mktmpdir]
     }
 
     db_1row select_object_info {}