--- a/CompressionStream.st	Sun Aug 08 14:40:17 2010 +0200
+++ b/CompressionStream.st	Sun Aug 08 14:40:51 2010 +0200
@@ -313,11 +313,13 @@
     onStream := mode := nil.
     hitEOF   := true.
 
-    zstream ifNotNil:[
-	self unregisterForFinalization.
-	self zclose.
-	zstream := nil.
+    zstream notNil ifTrue:[
+        self unregisterForFinalization.
+        self zclose.
+        zstream := nil.
     ].
+
+    "Modified: / 08-08-2010 / 14:40:41 / cg"
 !
 
 contentsSpecies
@@ -652,11 +654,11 @@
 !CompressionStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/CompressionStream.st,v 1.29 2009-11-05 16:26:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/CompressionStream.st,v 1.30 2010-08-08 12:40:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/CompressionStream.st,v 1.29 2009-11-05 16:26:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/CompressionStream.st,v 1.30 2010-08-08 12:40:51 cg Exp $'
 ! !
 
 CompressionStream initialize!