anchor.diff:          Cnt := FindPlaceForHouse(aUnlockProcedure, aHT, BestLocs);
           if (Cnt > 0) then
           begin
  -          AddPlan(aHT, BestLocs[0]);
  -          gHands[fOwner].AI.CityManagement.Builder.LockHouseLoc(aHT, BestLocs[0]);
             aLoc := BestLocs[0];
  +          AddPlan(aHT, aLoc);
  +          gHands[fOwner].AI.CityManagement.Builder.LockHouseLoc(aHT, aLoc);
  +          FindForestAround(aLoc);
             Output := True;
  -          FindForestAround(aLoc);
           end;
         end;
       end;
  
positive.code: end;
  
  
  procedure TKMCityPlanner.RemovePlan(aHT: TKMHouseType; aLoc: TKMPoint);
  var
    I: Integer;
  
negative.code:           for I := 0 to BuildFF.Locs.Count - 1 do
            begin
              Loc := BuildFF.Locs.Items[I];
              Bid := 100000
                     - BuildFF.Distance[Loc] * 200; // Snap crit is aggressive
                     + SnapCrit(aHT, Loc);
              if (Bid > BestBid) then
              begin
  