anchor.diff:  
   
   procedure TKMHousesCollection.IncAnimStep;
  -var I: Integer;
  +var
  +  I: Integer;
   begin
     for I := 0 to Count - 1 do
       Houses[I].IncAnimStep;
  
positive.code: 
  
  function TKMHousesCollection.AddToCollection(aHouseType: TKMHouseType; PosX,PosY: Integer; aOwner: TKMHandID; aHBS: TKMHouseBuildState): TKMHouse;
  var ID: Cardinal;
  begin
    ID := gGame.GetNewUID;
  
  
negative.code: 
  
  procedure TKMHousesCollection.Save(SaveStream: TKMemoryStream);
  var
    I: Integer;
  begin
    SaveStream.PlaceMarker('Houses');
  
  