Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -N -r1.126.2.7 -r1.126.2.8
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	3 Jul 2020 07:27:28 -0000	1.126.2.7
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	13 Jul 2020 12:02:33 -0000	1.126.2.8
@@ -34,8 +34,8 @@
     # Loop through all directories in the /packages directory, searching each for a
     # .info file.
     foreach dir [lsort [glob -nocomplain "$path/*"]] {
-        set package_key [file tail $dir]
-        if { ![file isdirectory $dir] } {
+        set package_key [ad_file tail $dir]
+        if { ![ad_file isdirectory $dir] } {
             continue
         }
         if { [apm_ignore_file_p $dir] } {
@@ -800,7 +800,7 @@
 
         # Backup any existing (old) package in packages dir first
         set old_package_path [acs_package_root_dir $package_key]
-        if { [file exists $old_package_path] } {
+        if { [ad_file exists $old_package_path] } {
             util::backup_file -file_path $old_package_path
         }
 
@@ -809,7 +809,7 @@
 
         # We moved the spec file, so update its path
         set package_path $old_package_path
-        set spec_file_path [apm_package_info_file_path -path [file dirname $package_path] $package_key]
+        set spec_file_path [apm_package_info_file_path -path [ad_file dirname $package_path] $package_key]
     }
 
     ad_try {
@@ -1010,7 +1010,7 @@
         }
 
 
-        if {[file exists $::acs::rootdir/packages/$package_key/install.xml]} {
+        if {[ad_file exists $::acs::rootdir/packages/$package_key/install.xml]} {
             #
             # Run install.xml only for new installs
             #
@@ -1477,7 +1477,7 @@
 
     ns_log Debug "apm_package_install_spec: Checking existence of package directory."
     set root [acs_package_root_dir $package_key]
-    if { ![file exists $root] } {
+    if { ![ad_file exists $root] } {
         file mkdir $root
         # doesn't work under windows.  its not very useful anyway.
         #    file attributes $root -permissions [parameter::get -parameter InfoFilePermissionsMode -default 0755]
@@ -1498,7 +1498,7 @@
         # create minimal directories
         foreach dir {www www/doc tcl tcl/test sql sql/postgresql sql/oracle} {
             set path "[acs_package_root_dir $package_key]/$dir"
-            if { ![file exists $path] } {
+            if { ![ad_file exists $path] } {
                 file mkdir $path
             }
         }
@@ -2186,7 +2186,7 @@
     # Abort if there is no install.xml file
     set filename $::acs::rootdir$filename
 
-    if { ![file exists $filename] } {
+    if { ![ad_file exists $filename] } {
         error "File $filename not found"
     }