Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.90.2.21 -r1.90.2.22
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	19 Apr 2021 13:01:13 -0000	1.90.2.21
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	20 Apr 2021 11:08:50 -0000	1.90.2.22
@@ -686,7 +686,7 @@
                        $file_name]
 
     set full_filename [ad_file join $path $file_name]
-    ::content::revision::write_to_filesystem \
+    ::content::revision::export_to_filesystem \
         -storage_type $storage_type \
         -revision_id $live_revision \
         -filename $full_filename