anchor.diff:  find(Mod, Name, TCs, [{Name1,Props,Tests} | Gs], Known, Defs, false)
     when is_atom(Name1), is_list(Props), is_list(Tests) ->
       cyclic_test(Mod, Name1, Known),
  -    [make_conf(Mod, Name1, Props,
  -	       find(Mod, Name, TCs, Tests, [Name1 | Known], Defs, false)) |
  -     find(Mod, Name, TCs, Gs, [], Defs, false)];
  +    find(Mod, Name, TCs, Tests, [Name1 | Known], Defs, false) ++
  +	find(Mod, Name, TCs, Gs, [], Defs, false);
   
   find(Mod, Name, _TCs, [{Name,_Props,_Tests} | _Gs], _Known, _Defs, true)
     when is_atom(Name) ->
  
positive.code:     delete_subs(Trimmed, Trimmed),
      Trimmed.
  
  find(Mod, all, _TCs, [{Name,Props,Tests} | Gs], Known, Defs, _) ->
      cyclic_test(Mod, Name, Known),
      [make_conf(Mod, Name, Props,
  	       find(Mod, all, all, Tests, [Name | Known], Defs, true)) |
  
negative.code: 	       find(Mod, Name, all, Tests, [Name1 | Known], Defs, true)) |
       find(Mod, Name, all, Gs, [], Defs, true)];
  
  find(Mod, Name, TCs, [{group,Name1} | Gs], Known, Defs, Found) 
    when is_atom(Name1) ->
      find(Mod, Name, TCs, [expand(Mod, Name1, Defs) | Gs], Known, Defs, Found);
  
  %% Undocumented remote group feature, use with caution
  find(Mod, Name, TCs, [{group, ExtMod, ExtGrp} | Gs], Known, Defs, true)
    when is_atom(ExtMod), is_atom(ExtGrp) ->
      ExternalDefs = ExtMod:groups(),
      ExternalTCs = find(ExtMod, ExtGrp, TCs, [{group, ExtGrp}],
                         [], ExternalDefs, false),
       ExternalTCs ++ find(Mod, Name, TCs, Gs, Known, Defs, true);
  
  find(Mod, Name, TCs, [{Name1,Tests} | Gs], Known, Defs, Found)
    when is_atom(Name1), is_list(Tests) ->
      find(Mod, Name, TCs, [{Name1,[],Tests} | Gs], Known, Defs, Found);
  
  find(Mod, Name, TCs, [_TC | Gs], Known, Defs, false) ->
      find(Mod, Name, TCs, Gs, Known, Defs, false);
  
  find(Mod, Name, TCs, [TC | Gs], Known, Defs, true) when is_atom(TC) ->
      [{Mod, TC} | find(Mod, Name, TCs, Gs, Known, Defs, true)];
  
  find(Mod, Name, TCs, [{ExternalTC, Case} = TC | Gs], Known, Defs, true)
    when is_atom(ExternalTC),
         is_atom(Case) ->
      [TC | find(Mod, Name, TCs, Gs, Known, Defs, true)];
  
  find(Mod, _Name, _TCs, [BadTerm | _Gs], Known, _Defs, _Found) ->
      Where = if length(Known) == 0 ->
  