anchor.diff:    I: Integer;
     Tmp: TKMPointDir;
     PlantAct: TPlantAct;
  +  HW: TKMHouseWoodcutters;
   begin
     Clear;
   
  
positive.code:                           case PlantAct of
                              taCut:    if not gTerrain.CanFindTree(aLoc, gRes.Units[aUnit.UnitType].MiningRange) then
                                          ResourceDepleted := True; //No more trees to cut
                              taPlant:  ResourceDepleted := True;   //No place for trees to plant
                            end;
                        end;
      ut_Miner:         if aHome = ht_CoalMine then
  
negative.code:   case aUnit.UnitType of
      ut_Woodcutter:    if aHome = ht_Woodcutters then
                        begin
                          HW := TKMHouseWoodcutters(aUnit.GetHome);
                          HW.ValidateFlagPoint; //Validate Cutting point. It will be set to a valid one if needed.
  
                          if HW.IsFlagPointSet then
                            aLoc := HW.FlagPoint;
  
                          fIssued := ChooseTree(aLoc, KMPOINT_ZERO, gRes.Units[aUnit.UnitType].MiningRange, aPlantAct, aUnit, Tmp, PlantAct);
                          if fIssued then
  