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:     Inc(I);
  
    if I >= fPlansCount then
      SetLength(fPlans, fPlansCount + LENGTH_INC);
  
    fPlans[I].House := aHouse.GetHousePointer;
    fPlans[I].JobStatus := js_Open;
    fPlans[I].Worker := nil;
  
    Inc(fPlansCount);
  end;
  
  
  
negative.code: begin
    SaveStream.Write('FieldworksList');
  
    SaveStream.Write(fFieldsCount);
    for I := 0 to fFieldsCount - 1 do
    begin
      SaveStream.Write(fFields[I].Loc);
  