anchor.diff:  			send_response(EapPacket, ?AccessChallenge,
   					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
   			NewStateData = StateData#statedata{tx_buf = Rest},
  -			{next_state, ttls, NewStateData, ?TIMEOUT};
  +			{next_state, handle_peer, NewStateData, ?TIMEOUT};
   		_Size ->
   			NewStateData = StateData#statedata{tx_buf = NewTxBuf},
  -			{next_state, ttls, NewStateData, ?TIMEOUT}
  +			{next_state, handle_peer, NewStateData, ?TIMEOUT}
   	end.
   
   -spec handle_event(Event :: term(), StateName :: atom(),
  
positive.code: 					identifier = EapID, data = EapData},
  			send_response(EapPacket, ?AccessChallenge,
  					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  			{next_state, ttls, StateData, ?TIMEOUT};
  		{ok, EAPMessage} ->
  			case catch ocs_eap_codec:eap_packet(EAPMessage) of
  				#eap_packet{code = response,
  
negative.code: -export([]).
  
  %% export the ocs_eap_ttls_fsm state callbacks
  -export([ssl_start/2, eap_start/2, handle_peer/2, handle_ssl/2]).
  
  %% export the call backs needed for gen_fsm behaviour
  -export([init/1, handle_event/3, handle_sync_event/4, handle_info/3,
  