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