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