anchor.diff:      Supported = ssl_cipher:filter_suites(Supported0),
       case [Cipher || Cipher <- Ciphers0, lists:member(Cipher, Supported)] of
   	[] ->
  -	    Supported;
  +	    Supported;  %% Defaults to all supported suits
   	Ciphers ->
   	    Ciphers
       end;
  -cipher_suites(Version, [Head | _] = Ciphers0) when is_list(Head) ->
  +binary_cipher_suites(Version, [Head | _] = Ciphers0) when is_list(Head) ->
       %% Format: ["RC4-SHA","RC4-MD5"]
       Ciphers = [ssl_cipher:openssl_suite(C) || C <- Ciphers0],
  -    cipher_suites(Version, Ciphers);
  -cipher_suites(Version, Ciphers0)  ->
  +    binary_cipher_suites(Version, Ciphers);
  +binary_cipher_suites(Version, Ciphers0)  ->
       %% Format: "RC4-SHA:RC4-MD5"
       Ciphers = [ssl_cipher:openssl_suite(C) || C <- string:tokens(Ciphers0, ":")],
  -    cipher_suites(Version, Ciphers).
  +    binary_cipher_suites(Version, Ciphers).
   
   unexpected_format(Error) ->
       lists:flatten(io_lib:format("Unexpected error: ~p", [Error])).
  
positive.code: emulated_options([], Inet,Emulated) ->
      {Inet, Emulated}.
  
  cipher_suites(Version, []) ->
      ssl_cipher:suites(Version);
  cipher_suites(Version, [{_,_,_,_}| _] = Ciphers0) -> %% Backwards compatibility
      Ciphers = [{KeyExchange, Cipher, Hash} || {KeyExchange, Cipher, Hash, _} <- Ciphers0],
      cipher_suites(Version, Ciphers);
  cipher_suites(Version, [{_,_,_}| _] = Ciphers0) ->
      Ciphers = [ssl_cipher:suite(C) || C <- Ciphers0],
      cipher_suites(Version, Ciphers);
  
  cipher_suites(Version, [Cipher0 | _] = Ciphers0) when is_binary(Cipher0) ->
      Supported0 = ssl_cipher:suites(Version)
  	++ ssl_cipher:anonymous_suites()
  	++ ssl_cipher:psk_suites(Version)
  
negative.code: 		    user_lookup_fun = handle_option(user_lookup_fun, Opts, undefined),
  		    psk_identity = handle_option(psk_identity, Opts, undefined),
  		    srp_identity = handle_option(srp_identity, Opts, undefined),
  		    ciphers    = handle_cipher_option(proplists:get_value(ciphers, Opts, []), hd(Versions)),
  		    %% Server side option
  		    reuse_session = handle_option(reuse_session, Opts, ReuseSessionFun),
  		    reuse_sessions = handle_option(reuse_sessions, Opts, true),
  