Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -N -r1.485.2.60 -r1.485.2.61
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	9 Mar 2017 09:09:03 -0000	1.485.2.60
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	21 Mar 2017 14:25:55 -0000	1.485.2.61
@@ -3085,10 +3085,8 @@
   File instproc full_file_name {} {
     if {![my exists full_file_name]} {
       if {[my exists item_id]} {
-        my instvar text mime_type package_id item_id revision_id
-        set storage_area_key [::xo::dc get_value get_storage_key \
-                                  "select storage_area_key from cr_items where item_id=:item_id"]
-        my set full_file_name [cr_fs_path $storage_area_key]/$text
+        my set full_file_name [content::revision::get_cr_file_path \
+                                   -revision_id [my set revision_id]]
         #my log "--F setting FILE=[my set full_file_name]"
       }
     }