Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.58 -r1.58.2.1
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	27 Nov 2006 13:21:05 -0000	1.58
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	14 Jan 2007 00:16:48 -0000	1.58.2.1
@@ -730,7 +730,7 @@
     # we have to do this here because we create the object before
     # calling cr_import_content
     
-    if {[content::type::content_type_p -mime_type $mime_type -content_type "image"]} {
+    if {[db_string image_type_p "" -default 0]} {
         set content_type image
     } else {
         set content_type file_storage_object