anchor.diff:  				 security_parameters :=
   				     #security_parameters{bulk_cipher_algorithm = BCA}}} =
   		ConnectionStates) ->
  -    Data = split_bin(Frag, ?MAX_PLAIN_TEXT_LENGTH, Version, BCA, BeastMitigation),
  +    Data = split_bin(Frag, Version, BCA, BeastMitigation),
       encode_iolist(?APPLICATION_DATA, Data, Version, ConnectionStates).
   
   %%====================================================================
  
positive.code: 		     ConnectionStates) ->
      case iolist_size(Frag) of
  	N  when N > ?MAX_PLAIN_TEXT_LENGTH ->
  	    Data = split_bin(iolist_to_binary(Frag), ?MAX_PLAIN_TEXT_LENGTH, Version, BCA, BeastMitigation),
  	    encode_iolist(?HANDSHAKE, Data, Version, ConnectionStates);
  	_  ->
  	    encode_plain_text(?HANDSHAKE, Version, Frag, ConnectionStates)
  
negative.code: 
  %% 1/n-1 splitting countermeasure Rizzo/Duong-Beast, RC4 chiphers are
  %% not vulnerable to this attack.
  split_bin(<<FirstByte:8, Rest/binary>>, Version, BCA, one_n_minus_one) when
        BCA =/= ?RC4 andalso ({3, 1} == Version orelse
  			    {3, 0} == Version) ->
      [[FirstByte]|do_split_bin(Rest)];
  %% 0/n splitting countermeasure for clients that are incompatible with 1/n-1
  %% splitting.
  split_bin(Bin, Version, BCA, zero_n) when
        BCA =/= ?RC4 andalso ({3, 1} == Version orelse
  			    {3, 0} == Version) ->
      [<<>>|do_split_bin(Bin)];
  split_bin(Bin, _, _, _) ->
      do_split_bin(Bin).
  
  do_split_bin(<<>>) -> [];
  do_split_bin(Bin) ->
      case Bin of
          <<Chunk:?MAX_PLAIN_TEXT_LENGTH/binary, Rest/binary>> ->
              [Chunk|do_split_bin(Rest)];
          _ ->
              [Bin]
      end.
  %%--------------------------------------------------------------------
  lowest_list_protocol_version(Ver, []) ->
  