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 filename:split(FullName) of
  			     [_AppName, "ebin", F]
  			       when F =:= ObjFile, Acc =:= NotFound ->
  				 case beam_lib:chunks(GetBin(),
  						      [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: 				 case beam_lib:version(Bin) of
  				     {ok,{M, _}} when M =:= ModName;
  						      FullName =:= "." ->
  					 case source_from_beam(Bin) of
  					     {ok,Source} ->
  						 {obj,Source};
  					     error ->
  						 Acc
  					 end;
  				     _ ->
  