anchor.diff:      Opts  = [{fetch_path, [kf(root, Conf) ++ "/priv/dtd/"]},
                {encoding,   "latin1"}],
   
  -    Fun = fun() ->
  -                  {ok, Bin} = file:read_file(XmlFile),
  -                  {Xml, _}  = xmerl_scan:string(binary_to_list(Bin), Opts),
  -                  xmerl_lib:simplify_element(Xml)
  -          end,
  -
  -    tmp_cd(filename:dirname(XmlFile), Fun).
  +    {Xml, _}  = xmerl_scan:file(XmlFile, Opts),
  +    xmerl_lib:simplify_element(Xml).
   
   %% Quick and dirty templating functions (replaces #KEY# in html with
   %% {key, "Some text"}
  
positive.code:      {"kernel", "zlib"},
       {"kernel", "erlang"},
       {"kernel", "erl_prim_loader"}].
  
negative.code:             ok = render(Type, AppName, Module, Content, Conf, Tpl),
  
              case lists:member({AppName, Module}, ignore()) of
                  true -> [];
                  false -> [ ["mod", AppName, Module, Sum1] |  Funs]
              end
      end.
  
  