Index: openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl,v
diff -u -r1.12 -r1.12.2.1
--- openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl	7 Aug 2017 23:48:11 -0000	1.12
+++ openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl	21 Jul 2020 14:06:40 -0000	1.12.2.1
@@ -35,7 +35,7 @@
     }
     
     set tmp_filename [oacs_dav::conn tmpfile]
-    set tmp_size [file size $tmp_filename]
+    set tmp_size [ad_file size $tmp_filename]
 
     set name [oacs_dav::conn item_name]
     set parent_id [oacs_dav::item_parent_folder_id $uri]