anchor.diff:  	    {ok, {obj, Bin}} ->
   		Bin;
   	    _ ->
  -		list_to_binary(["%% Bad luck, cannot find the "
  -				"code in the escript ", Escript, "."])
  +		unicode:characters_to_binary(
  +		  ["%% Bad luck, cannot find the "
  +		   "code in the escript ", Escript, "."])
   	end
       catch
   	throw:Reason when is_list(Reason) ->
  -	    list_to_binary(["%% Bad luck, cannot find the code "
  -			    "in the escript ", Escript, ": ", Reason])
  +	    unicode:characters_to_binary(
  +	      ["%% Bad luck, cannot find the code "
  +	       "in the escript ", Escript, ": ", Reason])
       end.
   
   create_config_page(S) ->
  
positive.code: 				 case beam_lib:version(Bin) of
  				     {ok,{M, _}} when M =:= ModName;
  						      FullName =:= "." ->
  					 case beam_lib:chunks(Bin,
  							      [abstract_code]) of
  					     {ok,{_,[{abstract_code,{_,AC}}]}} ->
  						 Form =
  						     erl_syntax:form_list(AC),
  						 IoList =
  						     erl_prettypr:format(Form),
  						 {obj,
  						  list_to_binary(IoList)};
  					     _ ->
  						 Acc
  					 end;
  				     _ ->
  
negative.code:     SrcDir = filename:join([ActiveDir, "src"]),
      ModStr = atom_to_list(Mod#mod.name),
      Base = "^" ++ ModStr ++ "\\.erl$",
      Find = fun(F, _Acc) -> throw({file:read_file(F),epp:read_encoding(F)}) end,
      case catch filelib:fold_files(SrcDir, Base, true, Find, {error, enoent}) of
  	{{ok, Bin},Encoding0} ->
  	    Encoding =
  		case Encoding0 of
  		    none -> epp:default_encoding();
  		    _ -> Encoding0
  		end,
  	    unicode:characters_to_binary(Bin,Encoding,utf8);
  	{error, enoent} ->
  	    %% Reconstructing the source code from debug info if possible
  	    BeamFile = filename:join([ActiveDir, "ebin", ModStr ++ ".beam"]),
  	    case source_from_beam(BeamFile) of
  		{ok,Source} ->
  		    Source;
  		error ->
  		    unicode:characters_to_binary(
  		      ["%% Bad luck, cannot find any "
  		       "debug info in the file \"", BeamFile])
  	    end
      end.
  
  source_from_beam(Beam) ->
      case beam_lib:chunks(Beam, [abstract_code]) of
  	{ok,{_,[{abstract_code,{_,AC}}]}} ->
  	    IoList = [erl_pp:form(F,[{encoding,utf8}]) || F <- AC],
  	    {ok,unicode:characters_to_binary(IoList)};
  	_ ->
  	    error
      end.
  
  find_escript_bin(#app{active_dir = ActiveDir}, Mod) ->
  