anchor.diff:  						ocs_eap_ttls_transport:deliver(SslPid, self(), NewData),
   						NextStateData = NewStateData#statedata{rx_buf = [],
   								rx_length = undefined},
  -						{next_state, aaa, NextStateData, ?TIMEOUT}
  +						{next_state, handle_ssl, NextStateData, ?TIMEOUT}
   				end;
   			#eap_ttls{more = true, message_len = undefined,
   					start = false, data = Data} when RxBuf /= [] ->
   				NextStateData = NewStateData#statedata{rx_buf = [RxBuf, Data]},
  -				{next_state, ttls, NextStateData, ?TIMEOUT};
  +				{next_state, handle_peer, NextStateData, ?TIMEOUT};
   			#eap_ttls{more = true, message_len = MessageLength,
   					start = false, data = Data} ->
   				NextStateData = NewStateData#statedata{rx_buf = [RxBuf, Data],
   						rx_length = MessageLength},
  -				{next_state, ttls, NextStateData, ?TIMEOUT}
  +				{next_state, handle_peer, NextStateData, ?TIMEOUT}
   		end
   	catch
   		_:_ ->
  
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(NewEapPacket, ?AccessChallenge,
  							RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  					NextStateData = StateData#statedata{eap_id = NewEapID},
  					{next_state, handle_peer, NextStateData, ?TIMEOUT};
  				#eap_packet{code = request, identifier = NewEapID} ->
  					NewEapPacket = #eap_packet{code = response, type = ?LegacyNak,
  							identifier = NewEapID, data = <<0>>},
  