--- a/CompressionStream.st	Tue Jan 16 14:58:57 2007 +0100
+++ b/CompressionStream.st	Tue Jan 16 17:21:14 2007 +0100
@@ -530,7 +530,7 @@
         count > 0 ifTrue:[
             self onStreamPutBytes:count from:outputBytes
         ].
-    ] doWhile:continue.
+    ] doWhile:[ continue == true ].
 !
 
 nextPut:aByteOrCharacter
@@ -544,7 +544,7 @@
 !CompressionStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/CompressionStream.st,v 1.19 2006-11-20 11:35:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/CompressionStream.st,v 1.20 2007-01-16 16:21:14 ca Exp $'
 ! !
 
 CompressionStream initialize!