--- a/PNGReader.st	Thu Jun 20 16:57:19 2013 +0200
+++ b/PNGReader.st	Fri Jun 21 00:43:05 2013 +0200
@@ -585,8 +585,8 @@
     type := String new:4.
     inStream nextBytes:4 into:type.
 
-    type = 'IHDR' ifFalse:[self halt. ^ false].
-    len == 13 ifFalse:[self halt. ^ false].
+    type = 'IHDR' ifFalse:[self halt:'expected IHDR magic'. ^ false].
+    len == 13 ifFalse:[self halt:'unexpected IHDR length'. ^ false].
 
     width := inStream nextLongMSB:true.        
     height := inStream nextLongMSB:true.        
@@ -880,11 +880,11 @@
 !PNGReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PNGReader.st,v 1.31 2013-03-08 17:48:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PNGReader.st,v 1.32 2013-06-20 22:43:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/PNGReader.st,v 1.31 2013-03-08 17:48:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PNGReader.st,v 1.32 2013-06-20 22:43:05 cg Exp $'
 ! !