anchor.diff:    if WalkShouldAbandon then
     begin
       fUnit.Thought := th_None;
  -    Result := TaskDone;
  +    Result := tr_TaskDone;
       Exit;
     end;
   
  
positive.code:             SetActionStay(1, ua_Walk);
            end;
        else
            Result := TaskDone;
      end;
    inc(fPhase);
  
  
negative.code:             SetActionWalkToSpot(BuildFrom.Loc);
            end
            else
              Result := tr_TaskDone;
        1:  begin
              Direction := BuildFrom.Dir;
              SetActionLockedStay(0, ua_Walk);
  