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 -N -r1.48 -r1.49
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	27 Oct 2014 16:40:58 -0000	1.48
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	27 Apr 2015 15:28:19 -0000	1.49
@@ -17,7 +17,7 @@
     
     if {[regexp -nocase -- {\.zip$} $tmp_dir]} {
 	# Generate a random directory name
-	set tmpdirectory [ns_tmpnam]
+	set tmpdirectory [ad_tmpnam]
 	# Create a temporary directory
 	file mkdir $tmpdirectory
 	# UNZIP the zip file in the temporary directory
@@ -49,7 +49,7 @@
 
     if {[regexp -nocase -- {\.zip$} $tmp_dir]} {
         # Generate a random directory name
-        set tmpdirectory [ns_tmpnam]
+        set tmpdirectory [ad_tmpnam]
         # Create a temporary directory
         file mkdir $tmpdirectory
         # UNZIP the zip file in the temporary directory