Berlin memory manager

Hi

In Berlin, it seems to be a problem with the memory manager

Here is a code:

type
  TLn = record
    aaa: array[0..100000] of Integer;
    bbb: string;
  end;
var
  iA: Integer;
  mas: array of TLn;
begin
  mas := nil;
  for iA := 0 to 1000 do SetLength(mas, Length(mas) + 1);
end;

to Seattle and below is performed instantly, and Berlin each iteration SetLegth significantly slower than the previous one, and as a result the following code into many orders of magnitude slower.