--- a/CompressionStreamTest.st	Fri May 16 08:58:32 2014 +0200
+++ b/CompressionStreamTest.st	Mon May 19 16:40:40 2014 +0200
@@ -344,14 +344,14 @@
     "
    |stream time file zipCont cmdCont|
 
-   file := '/boot/initrd' asFilename.
+   file := '/boot/vmlinuz' asFilename.
    file isReadable ifFalse:[^ self error:'not existant'].
 
    time := Time millisecondsToRun:[ |zipStream|
         zipStream := stream := zipCont := nil.
         [
             stream    := file readStream.
-            zipStream := ZipStream readOpenOn:stream.
+            zipStream := BZip2Stream readOpenOn:stream.
             zipCont   := zipStream contents.
         ] ensure:[
             zipStream notNil ifTrue:[zipStream close].
@@ -383,14 +383,14 @@
     "
    |stream time file zipCont nxtCont|
 
-   file := '/boot/initrd' asFilename.
+   file := '/boot/vmlinuz' asFilename.
    file isReadable ifFalse:[^ self error:'not existant'].
 
    time := Time millisecondsToRun:[ |zipStream|
         zipStream := stream := zipCont := nil.
         [
             stream    := file readStream.
-            zipStream := ZipStream readOpenOn:stream.
+            zipStream := BZip2Stream readOpenOn:stream.
             zipCont   := zipStream contents.
         ] ensure:[
             zipStream notNil ifTrue:[zipStream close].
@@ -404,7 +404,7 @@
         [
             stream    := file readStream.
             wstream   := String writeStream.
-            zipStream := ZipStream readOpenOn:stream.
+            zipStream := BZip2Stream readOpenOn:stream.
 
             [zipStream atEnd] whileFalse:[
                 wstream nextPutAll:(zipStream next:117)
@@ -427,7 +427,7 @@
 "
    |stream time file skpCont nxtCont skip|
 
-   file := '/boot/initrd' asFilename.
+   file := '/boot/vmlinuz' asFilename.
    file isReadable ifFalse:[^ self error:'not existant'].
 
    skip := 6885379.
@@ -437,7 +437,7 @@
         [
             stream    := file readStream.
             wstream   := String writeStream.
-            zipStream := ZipStream readOpenOn:stream.
+            zipStream := BZip2Stream readOpenOn:stream.
             skip timesRepeat:[ zipStream next ].
 
             [zipStream atEnd] whileFalse:[
@@ -457,7 +457,7 @@
         [
             stream    := file readStream.
             wstream   := '' writeStream.
-            zipStream := ZipStream readOpenOn:stream.
+            zipStream := BZip2Stream readOpenOn:stream.
             zipStream skip:skip.
             [zipStream atEnd] whileFalse:[
                 wstream nextPutAll:(zipStream next:117)
@@ -477,5 +477,6 @@
 !CompressionStreamTest class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/CompressionStreamTest.st,v 1.3 2007-01-16 13:58:57 boris Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/CompressionStreamTest.st,v 1.4 2014-05-19 14:40:40 stefan Exp $'
 ! !
+