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 ""
         }