Index: openacs-4/packages/assessment/tcl/as-qti-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-qti-procs.tcl,v
diff -u -r1.50.2.4 -r1.50.2.5
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	21 May 2021 07:40:57 -0000	1.50.2.4
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	13 Dec 2022 14:47:13 -0000	1.50.2.5
@@ -16,10 +16,9 @@
 } {
 
     if {[regexp -nocase -- {\.zip$} $tmp_dir]} {
-        # Generate a random directory name
-        set tmpdirectory [ad_tmpnam]
-        # Create a temporary directory
-        file mkdir $tmpdirectory
+        # Create a random temporary directory
+        set tmpdirectory [ad_mktmpdir]
+
         # UNZIP the zip file in the temporary directory
         util::unzip -source ${tmp_dir} -destination $tmpdirectory
 
@@ -48,10 +47,9 @@
 } {
 
     if {[regexp -nocase -- {\.zip$} $tmp_dir]} {
-        # Generate a random directory name
-        set tmpdirectory [ad_tmpnam]
-        # Create a temporary directory
-        file mkdir $tmpdirectory
+        # Create a random temporary directory
+        set tmpdirectory [ad_mktmpdir]
+
         # UNZIP the zip file in the temporary directory
         util::unzip -source ${tmp_dir} -destination $tmpdirectory
 
Index: openacs-4/packages/assessment/www/asm-admin/unzip-file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/unzip-file.tcl,v
diff -u -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/assessment/www/asm-admin/unzip-file.tcl	21 May 2021 07:40:56 -0000	1.5.2.1
+++ openacs-4/packages/assessment/www/asm-admin/unzip-file.tcl	13 Dec 2022 14:53:01 -0000	1.5.2.2
@@ -16,10 +16,8 @@
 
 set context [list "[_ assessment.Import_Results]"]
 
-# Generate a random directory name
-set tmpdirectory [ad_tmpnam]
-# Create a temporary directory
-file mkdir $tmpdirectory
+# Generate a random temporary directory
+set tmpdirectory [ad_mktmpdir]
 
 # UNZIP the zip file in the temporary directory
 util::unzip -source ${zipfile.tmpfile} -destination $tmpdirectory