Index: openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl,v
diff -u -N -r1.35 -r1.36
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	15 Aug 2018 16:24:28 -0000	1.35
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	29 Nov 2018 23:56:23 -0000	1.36
@@ -89,7 +89,7 @@
     }
 
     if {![info exists content_type] || $content_type eq ""} {
-        set content_type [::content::item::content_type -item_id $item_id]
+        set content_type [::content::item::get_content_type -item_id $item_id]
     }
     if {$storage_type eq ""} {
         set storage_type [db_string get_storage_type ""]