--- a/RIFFReader.st	Sat Dec 30 20:27:56 2000 +0100
+++ b/RIFFReader.st	Sat Dec 30 20:40:49 2000 +0100
@@ -13,7 +13,7 @@
 "{ Package: 'stx:libview2' }"
 
 Object subclass:#RIFFReader
-	instanceVariableNames:'inStream fileType streamTypes client'
+	instanceVariableNames:'inStream fileType streamTypes client msb'
 	classVariableNames:'UnsupportedFormatErrorSignal'
 	poolDictionaries:''
 	category:'System-Support-FileFormats'
@@ -161,6 +161,18 @@
     client := something.
 !
 
+msb
+    "return the value of the instance variable 'msb' (automatically generated)"
+
+    ^ msb
+!
+
+msb:something
+    "set the value of the instance variable 'msb' (automatically generated)"
+
+    msb := something.
+!
+
 streamTypes:something
     "set the value of the instance variable 'streamTypes' (automatically generated)"
 
@@ -200,7 +212,7 @@
         self error:'short chunk' mayProceed:true.
         ^ self
     ].
-    chunkSize := inStream nextLongMSB:false.
+    chunkSize := inStream nextLongMSB:msb.
 
     (id at:1) == $0 ifTrue:[
         sTyp := '_Unknown'.
@@ -304,6 +316,7 @@
 
     inStream := aStream.
     inStream binary.
+    msb := false.
 
     [inStream atEnd] whileFalse:[
         client perform:#getChunk ifNotUnderstood:[self getChunk]. 
@@ -336,6 +349,6 @@
 !RIFFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/RIFFReader.st,v 1.7 2000-12-30 19:27:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/RIFFReader.st,v 1.8 2000-12-30 19:40:49 cg Exp $'
 ! !
 RIFFReader initialize!