--- a/RegressionTests__ImageReaderTest.st	Mon Mar 07 11:11:13 2016 +0100
+++ b/RegressionTests__ImageReaderTest.st	Mon Mar 07 14:28:56 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'exept:regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -280,6 +282,31 @@
     "
 !
 
+test_bmp_02
+    |img allOK|
+
+    allOK := true.
+    (self class packageDirectory construct:'testData/bmpImages/bmpsuite-2.4') directoryContentsAsFilenamesDo:[:f |
+        (f isRegularFile and:[f hasSuffix:'bmp']) ifTrue:[
+            Error handle:[:ex |
+                img := nil.
+            ] do:[
+                img := Image fromFile:f.
+            ].
+            img isNil ifTrue:[ 
+                Transcript printf:'failed: %s\n' with:f baseName.
+                allOK := false
+            ].                
+        ].
+    ].
+    self assert:allOK.
+
+    "
+     self run:#test_bmp_02
+     self new test_bmp_02
+    "
+!
+
 test_png_01
     |img allOK|