anchor.diff:  var i,HouseCount: Integer; HouseType: THouseType;
   begin
     LoadStream.ReadAssert('Houses');
  -  LoadStream.Read(fSelectedHouse, 4);
  +
     LoadStream.Read(HouseCount);
     for i := 0 to HouseCount - 1 do
     begin
  
positive.code: 
    TKMHousesCollection = class(TKMList)
    private
      fSelectedHouse: TKMHouse;
      function AddToCollection(aHouseType: THouseType; PosX,PosY:integer; aOwner: shortint; aHBS:THouseBuildState):TKMHouse;
      function GetHouse(Index: Integer): TKMHouse;
      procedure SetHouse(Index: Integer; Item: TKMHouse);
  
negative.code: 
  
  procedure TKMHousesCollection.SyncLoad;
  var I:integer;
  begin
    for I := 0 to Count - 1 do
    begin
      Houses[I].SyncLoad;
      if Houses[I].fCurrentAction<>nil then
        Houses[I].fCurrentAction.fHouse := fPlayers.GetHouseByID(cardinal(Houses[I].fCurrentAction.fHouse));
    end;
  end;
  
  