--- a/RIFFReader.st	Thu Dec 28 15:58:00 2000 +0100
+++ b/RIFFReader.st	Sat Dec 30 20:27:56 2000 +0100
@@ -196,7 +196,10 @@
     'getChunk -> ' infoPrint.
 
     id := '    '.
-    inStream nextBytes:4 into:id startingAt:1.
+    (inStream nextBytes:4 into:id startingAt:1) ~~ 4 ifTrue:[
+        self error:'short chunk' mayProceed:true.
+        ^ self
+    ].
     chunkSize := inStream nextLongMSB:false.
 
     (id at:1) == $0 ifTrue:[
@@ -333,6 +336,6 @@
 !RIFFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/RIFFReader.st,v 1.6 2000-12-15 20:27:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/RIFFReader.st,v 1.7 2000-12-30 19:27:56 cg Exp $'
 ! !
 RIFFReader initialize!