anchor.diff:                          , {li, [], {code, [], [Child]}} }
       end;
   
  +tr_erlref ({name, [{name,Name}, {arity,N}, {clause_i,"1"}], []}, Acc) ->
  +    tr_erlref({name, [{name,Name}, {arity,N}], []}, Acc);
   tr_erlref ({name, [{name,Name}, {arity,N}], []}, Acc) ->
       [{ids,Ids}, List, {functions,Funs}, {types,Types}] = Acc,
       NName = inc_name(Name, Ids, 0),
  -    PName = case find_spec(Name, N, Types) of
  -                {Spec, invalid_name} -> Name ++"/"++ N;
  -                {Spec, DefiniteName} -> DefiniteName
  -            end,
  -    NSpec = case Spec of
  -                [] -> [];
  -                _  -> [ {ul, [{class, "type_desc"}]
  -                        , [{li, [], {code, [], [S]}} || S <- Spec, S /= []]} ]
  -            end,
  -    { [ {h3, [{id, Name ++ "/" ++ N}], [PName]}, "\n    " | NSpec ]
  +    ID = Name ++ "/" ++ N,
  +    Found = find_spec(Name, N, Types),
  +    {SpecsFound, Names} = lists:unzip(Found),
  +    Specs = merge_specs(SpecsFound),
  +    NSpecs = [ {li, [], [{code, [], [Spec]}]} || Spec <- Specs ],
  +    Tags = case Names of
  +               []             ->
  +                   [{h3, [{id,ID}], [ID]}];
  +               [PName|PNames] ->
  +                   [{h3, [{id,ID}], [PName]}]
  +                       ++ [ {h3, [], [PNameK]} || PNameK <- PNames ]
  +           end,
  +    { Tags ++ ["\n    ", {ul, [{class,"type_desc"}], NSpecs}]
       , [{ids,[NName|Ids]}, List, {functions,[NName|Funs]}, {types,Types}] };
   tr_erlref ({name, [], Child}, Acc) ->
       [{ids,Ids}, List, {functions,Funs}, {types,Types}] = Acc,
  
positive.code: 
      Acc = [{ids,[]}, {list,ul}, {functions,[]}, {types,Types}],
  
      {[_Id, _List, {functions,Funs}, {types,_}], NXml}
          = render(fun tr_erlref/2,  Xml, Acc),
  
  %%  XmlFuns = [{li, [], [{a, [{href,"#"++X}], [X]}]}
  
negative.code:                     ignore -> Acc;
                      NName  -> [ ["fun", App, Mod++":"++NName, Summary] | Acc ]
                  end;
              ({name, [{name,Name}, {arity,Arity}], []}, Acc) ->
                  [ ["fun", App, Mod++":"++Name++"/"++Arity, Summary] | Acc ];
              ({name, [{name,Name}, {arity,Arity}, {clause_i,"1"}], []}, Acc) ->
                  [ ["fun", App, Mod++":"++Name++"/"++Arity, Summary] | Acc ];
              (_Else, Acc) -> Acc
          end,
  