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 -N -r1.21.2.1 -r1.21.2.2
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	1 Jul 2005 15:15:22 -0000	1.21.2.1
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	4 Jul 2005 13:15:49 -0000	1.21.2.2
@@ -198,7 +198,7 @@
 
     db_transaction {
 
-        if { [empty_string_p [cr_registered_type_for_mime_type $mime_type]] } {
+        if { [empty_string_p [db_string is_registered "" -default ""]] } {
             db_dml mime_type_insert ""
             db_exec_plsql mime_type_register ""
         }
Index: openacs-4/packages/acs-content-repository/tcl/revision-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs.xql,v
diff -u -N -r1.6.2.3 -r1.6.2.4
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.xql	1 Jul 2005 15:15:22 -0000	1.6.2.3
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.xql	4 Jul 2005 13:15:49 -0000	1.6.2.4
@@ -35,4 +35,21 @@
       </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>
+
+<fullquery name="cr_import_content.is_registered">
+      <querytext>
+          select 1
+          from cr_content_mime_type_map
+          where mime_type = :mime_type
+          and contetnt_type = 'content_revision'
+      </querytext>
+</fullquery>
+  
 </queryset>