--- a/MIMETypes.st	Wed Mar 28 14:43:32 2018 +0200
+++ b/MIMETypes.st	Wed Mar 28 14:52:22 2018 +0200
@@ -921,6 +921,9 @@
 defineImageType:mimeType suffix:aSuffix reader:aReaderClass info:info
     "register an image reader."
 
+    "/ flush caches
+    LastSuffix := LastType := nil.
+
     aSuffix notNil ifTrue:[
         self imageReaderForSuffix:aSuffix put:aReaderClass.
     ].
@@ -1396,6 +1399,10 @@
     ].
     ^ FileSuffixToImageReaderClassMapping at:aSuffix asLowercase ifAbsent:nil
 
+    "
+     self imageReaderForSuffix:'wbmp'
+    "
+
     "Created: / 30-06-1997 / 21:59:11 / cg"
     "Modified: / 01-08-1998 / 17:01:58 / cg"
     "Modified (comment): / 01-03-2018 / 18:57:59 / mawalch"