gistfile1.txt

diff --git a/lib/Git/PurePerl/Pack.pm b/lib/Git/PurePerl/Pack.pm
index a69f2b9..d9d3f14 100644
--- a/lib/Git/PurePerl/Pack.pm
+++ b/lib/Git/PurePerl/Pack.pm
@@ -72,14 +72,17 @@ method read_compressed ($offset, $size) {
     my $out = Buf.new;

     my $decompressor = Compress::Zlib::Stream.new;
-    while $out.bytes < $size {
+    my $read = 0;
+    while !$decompressor.finished {
         my $block = $fh.read: 4096;
-        say $block;
+        $read += $block.bytes;
         my $data = $decompressor.inflate: $block;
         die $data if $data ~~ Failure;
         $out ~= $data;
     }

+    $fh.seek: ($offset + $read - $decompressor.bytes-left), 0;
+
     fail "$out.bytes() is not $size" unless $out.bytes == $size;

     return $out;