anchor.diff:      end.
   
   add_unbroken_ciphers_default(Opts) ->
  -    Ciphers = filter_broken_cipher_suites(proplists:get_value(ciphers, Opts, ssl:cipher_suites())),
  +    Default = filter_unsecure_cipher_suites(ssl:cipher_suites()),
  +    Ciphers = filter_broken_cipher_suites(proplists:get_value(ciphers, Opts, Default)),
       [{ciphers, Ciphers} | proplists:delete(ciphers, Opts)].
   
   filter_broken_cipher_suites(Ciphers) ->
  
positive.code:         _ ->
              Ciphers
      end.
  
  accept({ssl, ListenSocket}) ->
      % There's a bug in ssl:transport_accept/2 at the moment, which is the
  
negative.code:     case Ssl of
          true ->
              Opts1 = add_unbroken_ciphers_default(Opts ++ SslOpts),
              Opts2 = add_safe_protocol_versions(Opts1),
              case ssl:listen(Port, Opts2) of
                  {ok, ListenSocket} ->
                      {ok, {ssl, ListenSocket}};
                  {error, _} = Err ->
  