anchor.diff:  find_groups(Mod, Name, TCs, GroupDefs) ->
       Found = find(Mod, Name, TCs, GroupDefs, [], GroupDefs, false),
       Trimmed = trim(Found),
  -    delete_subs(Trimmed, Trimmed).
  +    %% I cannot find a reason to why this function is called,
  +    %% It deletes any group which is referenced in any other
  +    %% group. i.e.
  +    %% groups() ->
  +    %%   [{test, [], [testcase1]},
  +    %%    {testcases, [], [{group, test}]}].
  +    %% Would be changed to
  +    %% groups() ->
  +    %%   [{testcases, [], [testcase1]}].
  +    %% instead of what I believe is correct:
  +    %% groups() ->
  +    %%   [{test, [], [testcase1]},
  +    %%    {testcases, [], [testcase1]}].
  +    %% Have to double check with peppe
  +    delete_subs(Trimmed, Trimmed),
  +    Trimmed.
   
   find(Mod, all, _TCs, [{Name,Props,Tests} | Gs], Known, Defs, _) ->
       cyclic_test(Mod, Name, Known),
  
positive.code: 	false ->
  	    delete_subs(Confs, All)
      end;
  
  delete_subs([], All) ->
      All.
  
  
negative.code: find(_Mod, _Name, _TCs,  [], _Known, _Defs, _Found) ->
      [].
  
  delete_subs([{conf, _,_,_,_} = Conf | Confs], All) ->
      All1 = delete_conf(Conf, All),
      case is_sub(Conf, All1) of
  	true ->
  