anchor.diff:      11: TaskDone:=true;
     end;
   inc(Phase);
  +if (fUnit.fCurrentAction=nil)and(not TaskDone) then
  +  Assert(false);
   end;
   
   { TTaskGoHome }
  
positive.code:     3: TaskDone:=true;
    end;
    inc(Phase);
  end;
  
  
  
negative.code:    end;
  end;
  inc(Phase);
  if (fSerf.fCurrentAction=nil)and(not TaskDone) then
    Assert(false);
  end;
  
  { TTaskBuildRoad }
  