Index: openacs-4/packages/assessment/www/asm-admin/export/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/export/index.vuh,v
diff -u -r1.12.2.2 -r1.12.2.3
--- openacs-4/packages/assessment/www/asm-admin/export/index.vuh	17 Dec 2019 16:53:18 -0000	1.12.2.2
+++ openacs-4/packages/assessment/www/asm-admin/export/index.vuh	30 Nov 2022 08:18:13 -0000	1.12.2.3
@@ -36,13 +36,11 @@
 set assessment_id1 $assessment_data(assessment_rev_id)
 
 # publish the object to the file system
-set in_path [ad_tmpnam]
-file mkdir $in_path
+set in_path [ad_mktmpdir]
 
 
 # create a temp dir to put the archive in
-set out_path [ad_tmpnam]
-file mkdir $out_path
+set out_path [ad_mktmpdir]
 
 # First create our top-level document
 #set doc [dom createDocument questestinterop]
Index: openacs-4/packages/evaluation/www/admin/evaluations/download-archive/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/evaluations/download-archive/index.vuh,v
diff -u -r1.5.2.2 -r1.5.2.3
--- openacs-4/packages/evaluation/www/admin/evaluations/download-archive/index.vuh	17 Dec 2019 16:53:18 -0000	1.5.2.2
+++ openacs-4/packages/evaluation/www/admin/evaluations/download-archive/index.vuh	30 Nov 2022 08:18:14 -0000	1.5.2.3
@@ -33,15 +33,13 @@
 regsub -all {[<>:\"|/@\\\#%&+\\]} $task_name {_} task_name
 
 # publish the object to the file system
-set in_path [ad_tmpnam]
-file mkdir $in_path
+set in_path [ad_mktmpdir]
 
 set file [evaluation::public_answers_to_file_system -task_id $task_id -path $in_path -folder_name $task_name]
 set file_name [file tail $file]
 
 # create a temp dir to put the archive in
-set out_path [ad_tmpnam]
-file mkdir $out_path
+set out_path [ad_mktmpdir]
 
 set out_file [file join ${out_path} ${download_name}]
 
Index: openacs-4/packages/file-storage/www/download-archive/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/download-archive/index.vuh,v
diff -u -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/file-storage/www/download-archive/index.vuh	17 Dec 2019 16:53:18 -0000	1.8.2.1
+++ openacs-4/packages/file-storage/www/download-archive/index.vuh	30 Nov 2022 08:18:14 -0000	1.8.2.2
@@ -42,15 +42,13 @@
 }
 
 # publish the object to the file system
-set in_path [ad_tmpnam]
-file mkdir $in_path
+set in_path [ad_mktmpdir]
 
 set file [fs::publish_object_to_file_system -object_id $object_id -path $in_path -user_id $user_id]
 set file_name [file tail $file]
 
 # create a temp dir to put the archive in
-set out_path [ad_tmpnam]
-file mkdir $out_path
+set out_path [ad_mktmpdir]
 
 set out_file [file join ${out_path} ${download_name}]