--- Merging r31986 into '.':

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

# revisions: 31986

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

rtl/objpas/classes/streams.inc

@@ -205,7 +205,7 @@ end;
     begin
       T:=0;
       Repeat
-         r:=Write(PByte(@Buffer)[t],Count);
+         r:=Write(PByte(@Buffer)[t],Count-t);
          inc(t,r);
       Until (t=count) or (r<=0);
       if (t<Count) then