anchor.diff:      lists:reverse(lists:flatten(Acc));
   all_possible_type_paths(Type, [TypePath | Tail], Acc) ->
       TypePath0 = tuple_to_list(TypePath),
  -%    Type0 = if
  -%        is_list(hd(Type)) -> Type;
  -%        true -> [Type]
  -%    end,
  -%    FoldFun = fun(TypeSuffix, AccIn) ->
  -%        [[Type0 ++ TypeSuffix] | AccIn]
  -%    end,
  -%    lists:foldl(FoldFun, Type0, TypePath).
       Head = lists:foldl(fun (TypeSuffix, AccIn) ->
   			 [list_to_tuple([Type | TypeSuffix]) | AccIn]
   		 end,
  
positive.code:     #collected{msg = CollectedMsg} = Collected,
      BestMatch = element(1, find_message_by_path(SeekNames, CollectedMsg)),
  
      %{ListNameT,FieldsOut,ExtendFields} = find_extended_msg(ListName, CollectedMsg),
      %{ListNameT2,Extensions} = find_defined_extensions(ListName, Extended),
      {ListName,FieldsOut,ExtendFields} = lists:keyfind(BestMatch,1,CollectedMsg),
      {ListName,Extensions} = lists:keyfind(BestMatch,1,Collected#collected.extensions),
  
  
negative.code:         _ ->
              Msg
      end.
  
  %% @hidden
  resolve_list_name(Name, _Package) when is_tuple(hd(Name)) ->
  