--- a/MIMETypes.st	Fri Aug 25 18:14:00 2017 +0200
+++ b/MIMETypes.st	Sat Aug 26 13:46:50 2017 +0200
@@ -879,6 +879,14 @@
 defineImageType:mimeType suffix:aSuffix reader:aReaderClass
     "register an image reader."
 
+    self defineImageType:mimeType suffix:aSuffix reader:aReaderClass info:nil
+
+    "Modified: / 26-08-2017 / 10:30:00 / cg"
+!
+
+defineImageType:mimeType suffix:aSuffix reader:aReaderClass info:info
+    "register an image reader."
+
     aSuffix notNil ifTrue:[
         self imageReaderForSuffix:aSuffix put:aReaderClass.
     ].
@@ -890,6 +898,12 @@
     (aSuffix notNil and:[mimeType notNil]) ifTrue:[
         self mimeTypeForSuffix:aSuffix put:mimeType
     ].
+    
+    (info notNil and:[mimeType notNil])  ifTrue:[
+        TypeToInfoMapping at:mimeType put:info.
+    ].
+
+    "Created: / 26-08-2017 / 10:29:11 / cg"
 !
 
 fileInfoForMimeType:mimeType