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.47.4.1 -r1.47.4.2
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	18 Aug 2014 20:25:02 -0000	1.47.4.1
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	28 Nov 2014 15:09:00 -0000	1.47.4.2
@@ -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