anchor.diff:  		      [self(), Mod, Line] ++ Args)
       end.
   
  +skip(Reason) ->
  +    exit({skip, Reason}).
  +
   skip(Actual, File, Line) ->
  -    log("Skipping test case~n", [], File, Line),
  -    String = lists:flatten(io_lib:format("Skipping test case ~p(~p): ~p~n",
  -					 [File, Line, Actual])),
  -    exit({skipped, String}).
  +    log("Skipping test case: ~p~n", [Actual], File, Line),
  +    String = f("~p(~p): ~p~n", [File, Line, Actual]),
  +    skip(String).
   
   fatal_skip(Actual, File, Line) ->
       error(Actual, File, Line),
  -    exit({skipped, {fatal, Actual, File, Line}}).
  +    skip({fatal, Actual, File, Line}).
  +
   
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
positive.code: 	error:undef ->
  	    %% p("do_eval -> error - undef", []),
  	    ReplyTo ! {'EXIT', self(), undef, 0};
  	exit:{skipped, Reason} ->
  	    %% p("do_eval -> exit - skipped"
  	    %%   "~n   Reason: ~p", [Reason]),
  	    T2   = os:timestamp(), 
  	    Time = timer:now_diff(T2, T1), 
  	    display_tc_time(Time),
  	    display_system_info("after (skipped)", Mod, Fun),
  	    ReplyTo ! {'EXIT', self(), {skipped, Reason}, Time};
  	exit:{suite_failed, Reason} ->
  	    %% p("do_eval -> exit - suite-failed"
  	    %%   "~n   Reason: ~p", [Reason]),
  
negative.code:     after 1000 ->
  	    []
      end.
  
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% Check if process is alive and kicking
  still_alive(Pid) ->   
  