--- a/ZipStream.st	Tue Jun 25 07:05:06 2002 +0200
+++ b/ZipStream.st	Tue Jun 25 07:14:46 2002 +0200
@@ -859,9 +859,6 @@
 
     if( __INST(mode) == @symbol(writeonly) )
     {
-        if( __INST(hitEOF) != false )
-            goto bad;
-
         if( __INST(binary) != true )
         {
             if( ! __isCharacter(something) )
@@ -883,12 +880,9 @@
     }
 bad: ;
 %}.
-
     byte ifNil:[
-        mode == #writeonly ifFalse:[
-            zstream ifNil:[ self errorNotOpen ].
-            self errorReadOnly.
-        ].
+        mode == #readonly ifTrue:[self errorReadOnly].
+        zstream ifNil:[ self errorNotOpen ].
         self invalidArguments.
     ].
     position == inputBytes size ifTrue:[ self flush ].
@@ -911,6 +905,6 @@
 !ZipStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipStream.st,v 1.13 2002-06-25 05:05:06 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipStream.st,v 1.14 2002-06-25 05:14:46 ca Exp $'
 ! !
 ZipStream initialize!