anchor.diff:  				data = TtlsData} = ocs_eap_codec:eap_packet(EapMessage),
   		case ocs_eap_codec:eap_ttls(TtlsData) of
   			#eap_ttls{more = false, message_len = undefined,
  -					start = false, data = Data} RxLength == undefined ->
  +					start = false, data = Data} when RxLength == undefined ->
   				ocs_eap_ttls_transport:deliver(SslPid, self(), [RxBuf, Data]),
   				NextStateData = NewStateData#statedata{rx_buf = [],
   						rx_length = undefined},
  
positive.code: 					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  			NewStateData = StateData#statedata{tx_buf = Rest},
  			{next_state, ttls, NewStateData, ?TIMEOUT};
  		Size ->
  			NewStateData = StateData#statedata{tx_buf = NewTxBuf},
  			{next_state, ttls, NewStateData, ?TIMEOUT}
  	end.
  
negative.code: %% @private
  aaa(timeout, #statedata{session_id = SessionID, tx_buf = []} = StateData) ->
  	{stop, {shutdown, SessionID}, StateData};
  aaa(timeout, #statedata{tx_buf = TxBuf,
  		radius_fsm = RadiusFsm, radius_id = RadiusID,
  		req_auth = RequestAuthenticator, secret = Secret,
  		eap_id = EapID} = StateData) ->
  	EapTtls = #eap_ttls{data = iolist_to_binary(TxBuf)},
  	EapData = ocs_eap_codec:eap_ttls(EapTtls),
  	EapPacket = #eap_packet{code = request, type = ?TTLS,
  