anchor.diff:  procedure TKMWorkerList.AddWorker(aWorker: TKMUnitWorker);
   begin
     if fWorkersCount >= Length(fWorkers) then
  -    SetLength (fWorkers, fWorkersCount + 16);
  +    SetLength(fWorkers, fWorkersCount + LENGTH_INC);
   
     fWorkers[fWorkersCount].Worker := TKMUnitWorker(aWorker.GetUnitPointer);
     Inc(fWorkersCount);
  
positive.code:   if HouseAlreadyInList(aHouse) then Exit;
  
    if fHousesCount >= Length(fHouses) then
      SetLength (fHouses, fHousesCount + 16);
  
    fHouses[fHousesCount].House := aHouse.GetHousePointer;
    fHouses[fHousesCount].Assigned := 0;
  
negative.code: begin
    SaveStream.Write('FieldworksList');
  
    SaveStream.Write(fFieldsCount);
    for I := 0 to fFieldsCount - 1 do
    begin
      SaveStream.Write(fFields[I].Loc);
  