Shouldn't this package include #lastIndexOfPKSignature: ?
I think that already happened in Pharo

cheers

Nicolas

2010/9/5  <commits at source.squeak.org>:
> Andreas Raab uploaded a new version of Compression to project The Trunk:
> http://source.squeak.org/trunk/Compression-ar.22.mcz
>
> ==================== Summary ====================
>
> Name: Compression-ar.22
> Author: ar
> Time: 5 September 2010, 10:53:14.026 am
> UUID: 579fde37-ea30-f14a-9799-a08eb7eac29f
> Ancestors: Compression-ar.21
>
> Restructurings to reduce package depencencies.
>
> =============== Diff against Compression-ar.21 ===============
>
> Item was changed:
>  ----- Method: GZipWriteStream class>>initialize (in category 'class initialization') -----
>  initialize
> +       FileServices registerFileReader: self!
> -       FileList registerFileReader: self!
>
> Item was added:
> + ----- Method: StandardFileStream>>compressFile (in category '*Compression') -----
> + compressFile
> +       "Write a new file that has the data in me compressed in GZip format."
> +       | zipped buffer |
> +
> +       self readOnly; binary.
> +       zipped := self directory newFileNamed: (self name, FileDirectory dot, 'gz').
> +       zipped binary; setFileTypeToObject.
> +               "Type and Creator not to be text, so can be enclosed in an email"
> +       zipped := GZipWriteStream on: zipped.
> +       buffer := ByteArray new: 50000.
> +       'Compressing ', self fullName displayProgressAt: Sensor cursorPoint
> +               from: 0 to: self size
> +               during: [:bar |
> +                       [self atEnd] whileFalse: [
> +                               bar value: self position.
> +                               zipped nextPutAll: (self nextInto: buffer)].
> +                       zipped close.
> +                       self close].
> +       ^zipped!
>
> Item was changed:
>  ----- Method: GZipWriteStream class>>unload (in category 'class initialization') -----
>  unload
> +       FileServices unregisterFileReader: self!
> -       FileList unregisterFileReader: self!
>
> Item was added:
> + ----- Method: FileStream>>viewGZipContents (in category '*Compression') -----
> + viewGZipContents
> +       "View the contents of a gzipped file"
> +
> +       | stringContents |
> +       self binary.
> +       stringContents := self contentsOfEntireFile.
> +       stringContents := Cursor wait showWhile: [(GZipReadStream on: stringContents) upToEnd].
> +       stringContents := stringContents asString withSqueakLineEndings.
> +
> +       UIManager default
> +               edit: stringContents;
> +               label: 'Decompressed contents of: ', self localName!
>
> Item was changed:
>  ----- Method: GZipReadStream class>>unload (in category 'class initialization') -----
>  unload
>
> +       FileServices unregisterFileReader: self !
> -       FileList unregisterFileReader: self !
>
>
>