--- a/MIMETypes.st	Wed Aug 05 20:35:33 2009 +0200
+++ b/MIMETypes.st	Fri Aug 07 16:09:17 2009 +0200
@@ -1000,7 +1000,9 @@
 imageReaderForSuffix:aSuffix
     "given a file suffix, return an approriate image reader class"
 
-    FileSuffixToImageReaderClassMapping isNil ifTrue:[^ nil].
+    FileSuffixToImageReaderClassMapping isNil ifTrue:[
+        self initializeImageReaderMappings
+    ].
     ^ FileSuffixToImageReaderClassMapping at:aSuffix asLowercase ifAbsent:nil
 
     "Created: / 30.6.1997 / 21:59:11 / cg"
@@ -1011,7 +1013,7 @@
     "register an image reader for a file suffix"
 
     FileSuffixToImageReaderClassMapping isNil ifTrue:[
-        FileSuffixToImageReaderClassMapping := Dictionary new.
+        self initializeImageReaderMappings
     ].
     FileSuffixToImageReaderClassMapping at:aSuffix asLowercase put:aReaderClass
 
@@ -1022,7 +1024,9 @@
 imageReaderForType:mimeTypeString
     "given a mime-type, return an approriate image reader class"
 
-    TypeToImageReaderClassMapping isNil ifTrue:[^ nil].
+    TypeToImageReaderClassMapping isNil ifTrue:[
+        self initializeImageReaderMappings
+    ].
     ^ TypeToImageReaderClassMapping at:mimeTypeString asLowercase ifAbsent:nil
 
     "Created: / 30.6.1997 / 21:56:01 / cg"
@@ -1033,7 +1037,7 @@
     "register an image reader for a mime-type"
 
     TypeToImageReaderClassMapping isNil ifTrue:[
-        TypeToImageReaderClassMapping := Dictionary new.
+        self initializeImageReaderMappings
     ].
     TypeToImageReaderClassMapping at:mimeTypeString asLowercase put:aReaderClass
 
@@ -1297,7 +1301,7 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.103 2009-08-05 13:23:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.104 2009-08-07 14:09:17 stefan Exp $'
 ! !
 
 MIMETypes initialize!