anchor.diff:      {3, 1};
   protocol_version(sslv3) ->
       {3, 0};
  -protocol_version(sslv2) ->
  +protocol_version(sslv2) -> %% Backwards compatibility
       {2, 0};
   protocol_version({3, 2}) ->
       'tlsv1.1';
   protocol_version({3, 1}) ->
       tlsv1;
   protocol_version({3, 0}) ->
  -    sslv3;
  -protocol_version({2, 0}) ->
  -    sslv2.
  +    sslv3.
   %%--------------------------------------------------------------------
   %% Function: protocol_version(Version1, Version2) -> #protocol_version{}
   %%     Version1 = Version2 = #protocol_version{}
  
positive.code: check_hash(_, _) ->
      ok. %% TODO check this 
  
  mac_hash(?NULL, {_,_}, _MacSecret, _SeqNo, _Type,
  	 _Length, _Fragment) ->
      <<>>;
  mac_hash({3, 0}, MacAlg, MacSecret, SeqNo, Type, Length, Fragment) ->
  
negative.code: %%--------------------------------------------------------------------
  supported_protocol_versions() ->
      Fun = fun(Version) ->
  		  protocol_version(Version) 
  	  end,
      case application:get_env(ssl, protocol_version) of
  	undefined ->
  