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 -r1.26.2.2 -r1.26.2.3
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	2 Jan 2016 21:24:47 -0000	1.26.2.2
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	27 Oct 2016 18:02:00 -0000	1.26.2.3
@@ -135,6 +135,11 @@
         select table_name from acs_object_types where object_type = :content_type
     }]
 
+    set mime_type [cr_check_mime_type \
+                       -filename  $title \
+                       -mime_type $mime_type \
+                       -file      $tmp_filename]
+    
     set query_text "insert into ${table_name}i
                     (revision_id, object_type, creation_user, creation_date, creation_ip, title, description, item_id, object_package_id, mime_type $attribute_names)
             values (:revision_id, :content_type, :creation_user, :creation_date, :creation_ip, :title, :description, :item_id, :package_id, :mime_type $attribute_values)"