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 -N -r1.73 -r1.74
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	6 Nov 2017 11:45:39 -0000	1.73
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	8 Jan 2018 09:16:15 -0000	1.74
@@ -1401,9 +1401,6 @@
     
     @error 
 } {
-
-    set user_id [ad_conn user_id]
-    set root_folder_id [fs::get_root_folder]
     if {(![info exists revision_id] || $revision_id eq "")} {
         set revision_id [content::item::get_live_revision -item_id $file_id]
     }
@@ -1426,14 +1423,10 @@
     #set content [db_exec_plsql get_content {}]
 
     if {$file_object_info(storage_type) eq "file"} {
-        set filename [cr_fs_path $file_object_info(storage_area_key)]
-        append filename $content
-        set fd [open $filename]
-        set content [read $fd]
-        close $fd
+        set file_object_info(cr_file_path) [content::revision::get_cr_file_path \
+                                                -revision_id $revision_id]
     }
     
-    set file_object_info(content) $content
     return [array get file_object_info]
 }