--- a/MIMETypes.st	Tue Dec 02 12:01:02 2008 +0100
+++ b/MIMETypes.st	Tue Dec 02 16:32:21 2008 +0100
@@ -329,6 +329,11 @@
     FileSuffixToImageReaderClassMapping at:'jpg'  put:JPEGReader.
     FileSuffixToImageReaderClassMapping at:'gif'  put:GIFReader.
     FileSuffixToImageReaderClassMapping at:'tif'  put:TIFFReader.
+
+    WindowsIconReader notNil ifTrue:[
+        TypeToImageReaderClassMapping at:'image/bmp'  put:WindowsIconReader.
+        FileSuffixToImageReaderClassMapping at:'bmp'  put:WindowsIconReader.
+    ].
 !
 
 initializeParenthesisSpecMappings
@@ -1233,7 +1238,7 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.98 2008-08-28 13:11:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.99 2008-12-02 15:32:21 cg Exp $'
 ! !
 
 MIMETypes initialize!