anchor.diff:  skip_cases(Node,Dir,Suite,Cases,Cmt,Tests,true) when is_list(Cases) ->
       {Tests1,Done} =
   	lists:foldr(fun({{N,D},Suites0},{Merged,_}) when N == Node,
  -							   D == Dir ->
  +							 D == Dir ->
   			    Suites1 = skip_cases1(Suite,Cases,Cmt,Suites0),
   			    {[{{N,D},Suites1}|Merged],true};
   		       (T,{Merged,Match}) ->
  
positive.code: 
      %% Get all Run tests sorted per node basis.
      NodeList1 = run_per_node(Run,NodeList, 
  			     TestSpec#testspec.merge_tests),    
      %% Get all Skip entries sorted per node basis.
      NodeList2 = skip_per_node(Skip,NodeList1),
  
  
negative.code: 	    Cases1 = Cases0 ++ SkipCases,
  	    insert_in_order({Suite,Cases1},Suites0,replace);
  	false ->
  	    case Suites0 of
  		[{all,_}=All|Skips]->
  		    [All|Skips++[{Suite,SkipCases}]];
  		_ ->
  		    insert_in_order({Suite,SkipCases},Suites0,replace)
  	    end
      end.
  
  append(Elem, List) ->
  