--- a/CompressionStream.st	Wed Jun 04 15:39:51 2008 +0200
+++ b/CompressionStream.st	Thu Jun 05 11:15:06 2008 +0200
@@ -477,6 +477,14 @@
 
 openWithMode:aMode on:aStream
     "open the zip-stream on a stream
+     can be reimplemented to do some additional stuff (e.g. gzip header) like
+     in the ZipStream
+    "
+    ^ self streamOpenWithMode:aMode on:aStream.
+!
+
+streamOpenWithMode:aMode on:aStream
+    "open the compression stream on a stream
          #readonly    uncompress the data derived from the read-stream,  aStream
          #writeonly   compress   the data and write to the write-stream, aStream
     "
@@ -557,7 +565,7 @@
 !CompressionStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/CompressionStream.st,v 1.21 2007-01-17 09:15:29 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/CompressionStream.st,v 1.22 2008-06-05 09:15:06 ab Exp $'
 ! !
 
 CompressionStream initialize!