--- a/DropObject.st	Sat Dec 07 11:28:34 2013 +0100
+++ b/DropObject.st	Sat Dec 07 11:44:47 2013 +0100
@@ -439,7 +439,7 @@
         isHtmlFile := self exists 
                         and:[ self isDirectory not
                         and:[ (mimeType := MIMETypes mimeTypeForFilename:(self asFilename)) notNil
-                        and:[ mimeType isHtml ]]].
+                        and:[ mimeType isHtmlType ]]].
 
 "/        isHtmlFile := self exists 
 "/                        and:[ self isDirectory not
@@ -586,9 +586,10 @@
 !DropObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.22 2011-07-18 07:39:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.23 2013-12-07 10:44:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.22 2011-07-18 07:39:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.23 2013-12-07 10:44:47 cg Exp $'
 ! !
+