anchor.diff:  					NewEapPacket = #eap_packet{code = failure, identifier = NewEapID},
   					send_response(NewEapPacket, ?AccessReject,
   							RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  -					{stop, {shutdown, SessionID}, NewStateData};
  +					{stop, {shutdown, SessionID}, StateData};
   				{'EXIT', _Reason} ->
   					NewEapPacket = #eap_packet{code = failure, identifier = EapID},
   					send_response(NewEapPacket, ?AccessReject,
   							RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  -					{stop, {shutdown, SessionID}, NewStateData}
  +					{stop, {shutdown, SessionID}, StateData}
   			end;
   		{error, not_found} ->
   			EapPacket = #eap_packet{code = request, type = ?TTLS,
   					identifier = EapID, data = EapData},
  -			gen_fsm:send_event(AaahFsm, {ttls_socket, self(), SslSocket}),
   			send_response(EapPacket, ?AccessChallenge,
   					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  -			{next_state, ttls, NewStateData, ?TIMEOUT}
  +			{next_state, ttls, StateData, ?TIMEOUT}
   	end.
   
   -spec ttls(Event :: timeout | term(), StateData :: #statedata{}) ->
  
positive.code: -export([]).
  
  %% export the ocs_eap_ttls_fsm state callbacks
  -export([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: 		_ ->
  			{stop, fragmentation_unimplemented, StateData}
  	end;
  aaa({eap_ttls, _SslPid, Data}, #statedata{buf = Buf} = StateData) ->
  	NewStateData = StateData#statedata{buf = [Data | Buf]},
  	{next_state, aaa, NewStateData, ?BufTIMEOUT}.
  