anchor.diff:  
               case lists:member({AppName, Module}, ignore()) of
                   true -> [];
  -                false -> [ ["mod", AppName, Module, Sum1] |  Funs]
  +                false -> [ ["mod", AppName, Module, Sum] | Funs]
               end
       end.
  +
  +module_summary (erlref, Xml) ->
  +    {_, [], Sum} = lists:keyfind(modulesummary, 1, Xml),
  +    unicode:characters_to_list(
  +      lists:filter(fun (X) -> not is_tuple(X) end, Sum));
  +module_summary (cref, Xml) ->
  +    {_, [], Sum} = lists:keyfind(libsummary, 1, Xml),
  +    Sum.
   
   ensure_docsrc (Conf, AppDir) ->
       %% List any doc/src/*.xml files that exist in the source files
  
positive.code: 'keeper?' (X) when is_tuple(X); is_number(X) ->
      true;
  'keeper?' (X) ->
      not lists:all(fun (C) -> C == $  orelse C == $\n orelse C == $\t end, X).
  
  %% rather basic xml to string converter, takes xml of the form
  %% {tag, [{listof, "attributes"}], ["list of children"]}
  
negative.code:             Module = bname(File, ".xml"),
              Xml = strip_whitespace(Content),
  
              Sum = lists:flatten(module_summary(Type, Xml)),
  
              %% strip silly shy characters
              Funs = get_funs(AppName, Module, lists:keyfind(funcs, 1, Xml)),
  