anchor.diff:  %% New in R13B
   % Wide characters (Unicode)
   io_request({put_chars,Encoding,Chars}, Port) -> % Binary new in R9C
  -    put_chars(wrap_characters_to_binary(Chars,Encoding,
  -					case get(unicode) of 
  -					    true -> unicode;
  -					    _ -> latin1
  -					end), Port);
  +    put_chars(wrap_characters_to_binary(Chars, Encoding, get(encoding)), Port);
   io_request({put_chars,Encoding,Mod,Func,Args}, Port) ->
       Result = case catch apply(Mod,Func,Args) of
   		 Data when is_list(Data); is_binary(Data) ->
  -		     wrap_characters_to_binary(Data,Encoding,
  -					       case get(unicode) of 
  -						   true -> unicode;
  -						   _ -> latin1
  -					       end);
  +		     wrap_characters_to_binary(Data, Encoding, get(encoding));
   		 Undef ->
   		     Undef
   	     end,
  
positive.code:     run(Port).
  
  run(P) ->
      put(unicode,false),
      server_loop(P).
  
  server_loop(Port) ->
  
negative.code: 	_ ->
  	    {error,{error,enotsup}}
      end;
  io_request(getopts, _Port) ->
      getopts();
  io_request({setopts,Opts}, _Port) when is_list(Opts) ->
      setopts(Opts);
  io_request({requests,Reqs}, Port) ->
      io_requests(Reqs, {ok,ok}, Port);
  io_request(R, _Port) ->                      %Unknown request
  