Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v
diff -u -N -r1.35.8.11 -r1.35.8.12
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	31 Mar 2014 13:11:08 -0000	1.35.8.11
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	1 Apr 2014 18:37:31 -0000	1.35.8.12
@@ -136,7 +136,7 @@
 
 } {
 
-    set apm_file [ns_tmpnam]
+    set apm_file [ad_tmpnam]
 
     db_blob_get_file distribution_tar_ball_select {
         select content 
@@ -163,7 +163,7 @@
 } {
     set package_key [apm_package_key_from_version_id $version_id]
     set files [apm_get_package_files -all_db_types -package_key $package_key]
-    set tmpfile [ns_tmpnam]
+    set tmpfile [ad_tmpnam]
     
     db_1row package_key_select {
         select package_key 
@@ -569,7 +569,7 @@
 } {    
     # First download the apm file if a URL is provided
     if { $url ne "" } {
-        set file_path [ns_tmpnam].apm
+        set file_path [ad_tmpnam].apm
         apm_callback_and_log $callback "<li>Downloading $url..."
         if { [catch {apm_transfer_file -url $url -output_file_name $file_path} errmsg] } {
             apm_callback_and_log $callback "Unable to download. Please check your URL.</ul>.
@@ -639,7 +639,7 @@
     }
 
     apm_callback_and_log $callback  "Extracting the .info file (<tt>$info_file</tt>)..."
-    set tmpdir [ns_tmpnam]
+    set tmpdir [ad_tmpnam]
     file mkdir $tmpdir
     exec [apm_gzip_cmd] -d -q -c -S .apm $file_path | [apm_tar_cmd] -xf - -C $tmpdir $info_file 2> [apm_dev_null]