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.30 -r1.30.4.1
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	2 Mar 2011 04:30:27 -0000	1.30
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	27 Aug 2013 11:50:27 -0000	1.30.4.1
@@ -217,7 +217,7 @@
 
     db_transaction {
 
-        if { [empty_string_p [db_string is_registered "" -default ""]] } {
+        if { [db_string is_registered "" -default ""] eq "" } {
             db_dml mime_type_insert ""
             db_exec_plsql mime_type_register ""
         }