Index: openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl,v
diff -u -r1.30.2.2 -r1.30.2.3
--- openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl	3 Jul 2020 07:27:29 -0000	1.30.2.2
+++ openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl	13 Jul 2020 12:02:33 -0000	1.30.2.3
@@ -637,16 +637,16 @@
                     return -code error "${this_proc}:  No file specified"
                 }
                 set file [dict get $f file]
-                if {![file exists $file]} {
+                if {![ad_file exists $file]} {
                     return -code error "${this_proc}:  Error reading file: $file not found"
                 }
-                if {![file readable $file]} {
+                if {![ad_file readable $file]} {
                     return -code error "${this_proc}:  Error reading file: $file permission denied"
                 }
 
                 dict set f filename [expr {[dict exists $f filename] ?
                                             [dict get $f filename] :
-                                            [file tail $file]}]
+                                            [ad_file tail $file]}]
             }
 
             # Filename and fieldname must be in the file dict at this
@@ -830,7 +830,7 @@
     if {$file eq ""} {
         set content_size [string length $content]
     } else {
-        set content_size [file size $file]
+        set content_size [ad_file size $file]
     }
 
     # Content size seems ok. Now try applying encoding