--- Merging r31982 into '.':

U    rtl/objpas/classes/streams.inc
--- Recording mergeinfo for merge of r31982 into '.':
 U   .

# revisions: 31982

git-svn-id: branches/fixes_3_0@31985 -

rtl/objpas/classes/streams.inc

@@ -190,7 +190,7 @@ end;
   begin
     t:=0;
     repeat
-      r:=Read(PByte(@Buffer)[t],Count);
+      r:=Read(PByte(@Buffer)[t],Count-t);
       inc(t,r);
     until (t=Count) or (r<=0);
     if (t<Count) then