anchor.diff:  
   %% @doc Run all tests in module Mod (i.e. `Mod ++ "_SUITE"' ).
   run(Mod) when is_atom(Mod) ->
  -    run(Mod,all).
  +    run(Mod,list(Mod)).
   
   %% @doc Run test `What' in module Mod (i.e. `Mod ++ "_SUITE"' ).
  -run(Mod, What) when is_atom(Mod), is_atom(What) ->
  +run(Mod,What) ->
       {module, ModSuite} = compile_and_load(Mod),
  -    run (ModSuite, [], [What], []);
  -
  -run(Mod,{Group,List}) when is_atom(Group) ->
  -    run(Mod,List);
  -
  -run(Mod,What) when is_list(What) ->
  -    [ run(Mod,E) || E <- What ].
  -
  -
  -run(_ModSuite,_Sub,[], _Config) ->
  -    done;
  -
  -run(ModSuite,Sub,[Test|Rest], Config) ->
  +    run(ModSuite,What,[]).
  +
  +run(ModSuite, What, Acc) when is_atom(ModSuite), is_atom(What) ->
  +    test_loop (ModSuite, [], [What], [], Acc);
  +
  +run(ModSuite,{Group,List},Acc) when is_atom(Group) ->
  +    run(ModSuite,List,Acc);
  +
  +run(_,[],Acc) -> Acc;
  +
  +run(ModSuite,[First|Next],Acc) ->
  +    Acc1 = run(ModSuite,First,Acc),
  +    run(ModSuite,Next,Acc1).
  +
  +test_loop(_ModSuite,_Sub,[], _Config, Acc) ->
  +    Acc;
  +
  +test_loop(ModSuite,Sub,[Test|Rest], Config, Acc) ->
       case catch ModSuite:Test(suite) of
   
   	[_|_]=L ->
   	    io:format("Running test category ~p~n", [lists:reverse([Test|Sub])]),
  -	    run(ModSuite,[Test|Sub],L,Config),
  -	    run(ModSuite,Sub,Rest,Config);
  +	    Acc1 = test_loop(ModSuite,[Test|Sub],L,Config, Acc),
  +	    test_loop(ModSuite,Sub,Rest,Config, Acc1);
   	    
   	_ ->
  -	    run_single_test(ModSuite,Test,Config),
  -	    run(ModSuite,Sub,Rest, Config)
  +	    TestResult = run_single_test(ModSuite,Test,Config),
  +	    test_loop(ModSuite,Sub,Rest, Config, [TestResult|Acc])
   	
       end.
       
  
positive.code: 			   %erlang:group_leader(Owner, self()),
  			   put('$ts$owner', Owner),
  			   case Test of
  			       t_repair_continuation -> erlang:throw(skipped);
  			       evil_rename -> erlang:throw(skipped);
  			       _ ->
  
negative.code: %%
  -module(ts).
  
  -export([run/1, run/2, list/1, count/1]).
  
  %% @doc List tests in module Mod
  %% @spec list( atom() ) -> [ atom() ]
  