anchor.diff:  
   
   procedure TKMHousesCollection.SyncLoad;
  -var I: Integer;
  +var
  +  I: Integer;
   begin
     for I := 0 to Count - 1 do
       Houses[I].SyncLoad;
  
positive.code: 
  
  procedure TKMHousesCollection.Save(SaveStream: TKMemoryStream);
  var I: Integer;
  begin
    SaveStream.PlaceMarker('Houses');
  
  
negative.code: 
  //Update resource requested counts for all houses
  procedure TKMHousesCollection.UpdateResRequest;
  var
    I: Integer;
  begin
    for I := 0 to Count - 1 do
    if Houses[I].IsComplete and not Houses[I].IsDestroyed then
  