anchor.diff:  					send_response(NewEapPacket, ?AccessChallenge,
   							RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
   					NextStateData = StateData#statedata{eap_id = NewEapID},
  -					{next_state, ttls, NextStateData, ?TIMEOUT};
  +					{next_state, handle_peer, NextStateData, ?TIMEOUT};
   				#eap_packet{code = request, identifier = NewEapID} ->
   					NewEapPacket = #eap_packet{code = response, type = ?LegacyNak,
   							identifier = NewEapID, data = <<0>>},
  
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(),
  