Index: openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl,v
diff -u -r1.21 -r1.21.2.1
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	28 Apr 2005 22:38:06 -0000	1.21
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	1 Jul 2005 15:15:22 -0000	1.21.2.1
@@ -190,11 +190,9 @@
         set item_id [db_nextval acs_object_id_seq]
     }
 
-    # use content_type of existing item
+    # use content_type of existing item 
     if $old_item_p {
 	set content_type [db_string get_content_type ""]
-    } else {
-	set content_type [cr_registered_type_for_mime_type $mime_type]
     }
     set revision_id [db_nextval acs_object_id_seq]
 
Index: openacs-4/packages/acs-content-repository/tcl/revision-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/revision-procs.xql,v
diff -u -r1.6.2.2 -r1.6.2.3
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.xql	1 Jul 2005 08:22:39 -0000	1.6.2.2
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.xql	1 Jul 2005 15:15:22 -0000	1.6.2.3
@@ -35,12 +35,4 @@
       </querytext>
 </fullquery>
 
-<fullquery name="cr_registered_type_for_mime_type.registered_type_for_mime_type">
-      <querytext>
-          select content_type
-          from cr_content_mime_type_map
-          where mime_type = :mime_type
-      </querytext>
-</fullquery>
-
 </queryset>