Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.89 -r1.90
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	20 Sep 2007 12:19:37 -0000	1.89
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	5 Oct 2007 11:34:59 -0000	1.90
@@ -408,8 +408,9 @@
     if {$upload_file ne "" && $upload_file ne "{}"} {
       $data set upload_file  $upload_file
       $data set import_file [$data form_parameter upload_file.tmpfile]
-      set mime_type   [$data form_parameter upload_file.content-type]
-      if {$mime_type eq "application/octet-stream"} {
+      set mime_type [$data form_parameter upload_file.content-type]
+      if {[db_0or1row check_mimetype {select 1 from cr_mime_types 
+	where mime_type = :mime_type}] == 0 || $mime_type eq "application/octet-stream"} {
         set guessed_mime_type [::xowiki::guesstype $upload_file]
         my msg guess=$guessed_mime_type
         if {$guessed_mime_type ne "*/*"} {