anchor.diff:  		    case file:open(Dest,[write,raw]) of
   			{ok,DFd} ->
   			    file:write(DFd,[Header,"<pre>\n"]),
  -			    _Lines = build_html(SFd,DFd,Functions),
  +			    _Lines = build_html(SFd,DFd,encoding(File),Functions),
   			    file:write(DFd,["</pre>\n",footer(),
   					    "</body>\n</html>\n"]),
   			    %% {_, Time2} = statistics(runtime),
  
positive.code: %%%-----------------------------------------------------------------
  %%% Read encoding from source file
  encoding(File) ->
      Encoding =
         case epp:read_encoding(File) of
             none ->
                 epp:default_encoding();
             E ->
                 E
         end,
      html_encoding(Encoding).
  
  html_encoding(latin1) ->
      "iso-8859-1";
  html_encoding(utf8) ->
      "utf-8".
  
negative.code: %%
  %% %CopyrightBegin%
  %% 
  %% Copyright Ericsson AB 1997-2013. All Rights Reserved.
  %% 
  %% The contents of this file are subject to the Erlang Public License,
  %% Version 1.1, (the "License"); you may not use this file except in
  