anchor.diff:  htmlchars ([Else|Rest], Acc) -> htmlchars(Rest, [Else    |Acc]).
   
   %% @doc
  -%% Parse XML file against OTP's DTD, need to cd into the
  -%% source directory because files are addressed relative to it
  +%% Parse XML file against OTP's DTD
   -spec read_xml (file:name()) -> {atom(), _, _}.
   read_xml (XmlFile) ->
  -    ?log("Reading XML for ~p", [XmlFile]),
  +    ?log("Reading XML for '~s'", [XmlFile]),
       DocgenDir = code:priv_dir(erl_docgen),
       Opts = [ {fetch_path, [ jname(DocgenDir, "dtd")
                             , jname(DocgenDir, "dtd_html_entities") ]}
  
positive.code: find_spec (Name, Arity, [{spec, [], Specs} |Rest]) ->
      {_, _, [SpecName]}  = lists:keyfind(name, 1, Specs),
      {_, _, [ArityName]} = lists:keyfind(arity, 1, Specs),
      case (SpecName =:= Name) and (ArityName =:= Arity) of
          false ->
              find_spec(Name, Arity, Rest);
          true  ->
  
negative.code:             case read_xml(File) of
                  {error, _, _} -> [];
                  {module, _, Specs} ->
                      ?log("Read XML Specs for ~s - '~s'", [Fn, File]),
                      strip_whitespace(Specs)
              end
      end.
  