fixed warning (and subtle bug) in zlib stream

diff --git a/src/shared/xstreams.pas b/src/shared/xstreams.pas
index 270d292e88bc80464d699d34951672e4bfa1b4e4..c34f2e820989016fe9ec6e0f02fa6b690f9fde02 100644 (file)
--- a/src/shared/xstreams.pas
+++ b/src/shared/xstreams.pas
@@ -362,7 +362,7 @@ begin
     //writeln('  reading ', rd, ' bytes...');
     rr := readBuf(buf, rd);
     //writeln('  got ', rr, ' bytes; fPos=', fPos, '; fSkipToPos=', fSkipToPos);
-    if rd <= 0 then raise XStreamError.Create('seek error');
+    if rr <= 0 then raise XStreamError.Create('seek error');
   end;
   //writeln('  pos: fPos=', fPos, '; fSkipToPos=', fSkipToPos);
   fSkipToPos := -1;