anchor.diff:  				ocs_eap_ttls_transport:deliver(SslPid, self(), [RxBuf, Data]),
   				NextStateData = NewStateData#statedata{rx_buf = [],
   						rx_length = undefined},
  -				{next_state, aaa, NextStateData, ?TIMEOUT};
  +				{next_state, handle_ssl, NextStateData, ?TIMEOUT};
   			#eap_ttls{more = false, message_len = undefined,
   					start = false, data = Data} ->
   				case iolist_size([RxBuf, Data]) of
  
positive.code: -export([]).
  
  %% export the ocs_eap_ttls_fsm state callbacks
  -export([ssl_start/2, eap_start/2, ttls/2, aaa/2]).
  
  %% export the call backs needed for gen_fsm behaviour
  -export([init/1, handle_event/3, handle_sync_event/4, handle_info/3,
  
negative.code: 			send_response(EapPacket, ?AccessChallenge,
  					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  			NewStateData = StateData#statedata{tx_buf = Rest},
  			{next_state, handle_peer, NewStateData, ?TIMEOUT};
  		_Size ->
  			NewStateData = StateData#statedata{tx_buf = NewTxBuf},
  			{next_state, handle_peer, NewStateData, ?TIMEOUT}
  	end.
  
  -spec handle_event(Event :: term(), StateName :: atom(),
  