anchor.diff:  
   procedure TUnitActionWalkTo.ExplanationLogAdd;
   begin
  +  if not WRITE_DETAILED_LOG then exit;
     ExplanationLog.Add(Format(
     '%d'+#9+'%d:%d > %d:%d > %d:%d'+#9+Explanation+'',
     [
  
positive.code:   else
      fWalkTo     := fTerrain.GetClosestTile(LocB,KMUnit.GetPosition,fPass);
  
    ExplanationLog := TStringList.Create;
    if FileExists(ExeDir+'ExpLog'+inttostr(fWalker.ID)+'.txt') then
      ExplanationLog.LoadFromFile(ExeDir+'ExpLog'+inttostr(fWalker.ID)+'.txt');
  
    Explanation := 'Walk action created';
    ExplanationLogAdd;
  
negative.code: 
  destructor TUnitActionWalkTo.Destroy;
  begin
    if WRITE_DETAILED_LOG then begin
      Explanation := 'Walkto destroyed at'+floattostr(fWalker.PositionF.X)+':'+floattostr(fWalker.PositionF.Y);
      ExplanationLogAdd;
      ExplanationLog.SaveToFile(ExeDir+'ExpLog'+inttostr(fWalker.ID)+'.txt');
    end;
    FreeAndNil(NodeList);
  
    if not KMSamePoint(fVertexOccupied,KMPoint(0,0)) then
  