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.126 -r1.127
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	10 Feb 2012 18:22:14 -0000	1.126
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	13 Feb 2012 11:09:52 -0000	1.127
@@ -499,7 +499,7 @@
       if {[db_0or1row [my qn check_mimetype] {select 1 from cr_mime_types 
 	where mime_type = :mime_type}] == 0 
 	  || $mime_type eq "application/octet-stream" 
-	  || $mime eq "application/force-download"} {
+	  || $mime_type eq "application/force-download"} {
         set guessed_mime_type [::xowiki::guesstype $upload_file]
         #my msg guess=$guessed_mime_type
         if {$guessed_mime_type ne "*/*"} {