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.67.2.2 -r1.67.2.3
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	6 Sep 2013 16:24:54 -0000	1.67.2.2
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	6 Sep 2013 16:54:47 -0000	1.67.2.3
@@ -619,7 +619,7 @@
 	    } else {
 		set file_name $file_upload_name
 	    }
-	} elseif { [item::get_mime_info [item::get_live_revision $object_id]] } {
+	} elseif { [item::get_mime_info [content::item::get_live_revision -item_id $object_id]] } {
 	    # We make sure that the file_name contains the file
 	    # extension at the end so that the users default
 	    # application for that file type can be used
@@ -1304,7 +1304,7 @@
     # hardcoding it for now
     set editable_mime_types [list "text/html" "text/plain"]
 
-    item::get_mime_info [item::get_live_revision $item_id]
+    item::get_mime_info [content::item::get_live_revision -item_id $item_id]
 
     if {[lsearch -exact $editable_mime_types [string tolower $mime_info(mime_type)]] != -1} {
         set mime_info(editable_p) 1
@@ -1354,7 +1354,7 @@
     set user_id [ad_conn user_id]
     set root_folder_id [fs::get_root_folder]
     if {![exists_and_not_null revision_id]} {
-        set revision_id [item::get_live_revision $file_id]
+        set revision_id [content::item::get_live_revision -item_id $file_id]
     }
 
     db_1row file_info {