anchor.diff:  	    Cases1 = Cases0 ++ SkipCases,
   	    insert_in_order({Suite,Cases1},Suites0,replace);
   	false ->
  -	    insert_in_order({Suite,SkipCases},Suites0,replace)
  +	    case Suites0 of
  +		[{all,_}=All|Skips]->
  +		    [All|Skips++[{Suite,SkipCases}]];
  +		_ ->
  +		    insert_in_order({Suite,SkipCases},Suites0,replace)
  +	    end
       end.
   
   append(Elem, List) ->
  
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: 
  insert_elem({all,_}=E,_,SoFar,_Replace) ->
      lists:reverse([E|SoFar]);
  insert_elem(_E,[all|_],SoFar,_Replace) ->
      lists:reverse(SoFar);
  insert_elem(_E,[{all,_}],SoFar,_Replace) ->
      lists:reverse(SoFar);
  