anchor.diff:  					identifier = EapID, data = EapData},
   			send_response(EapPacket, ?AccessChallenge,
   					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  -			{next_state, handle_peer, StateData, ?TIMEOUT}
  +			{next_state, handle_peer, NewStateData, ?TIMEOUT}
   	end.
   
   -spec handle_peer(Event :: timeout | term(), StateData :: #statedata{}) ->
  
positive.code: 		session_id = SessionID, secret = Secret} = StateData) ->
  	EapTtls = #eap_ttls{start = true},
  	EapData = ocs_eap_codec:eap_ttls(EapTtls),
  	case radius_attributes:find(?EAPMessage, Attributes) of
  		{ok, <<>>} ->
  			EapPacket = #eap_packet{code = request, type = ?TTLS,
  					identifier = EapID, data = EapData},
  			send_response(EapPacket, ?AccessChallenge,
  					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  			{next_state, handle_peer, StateData, ?TIMEOUT};
  		{ok, EAPMessage} ->
  			case catch ocs_eap_codec:eap_packet(EAPMessage) of
  				#eap_packet{code = response,
  
negative.code: 				{next_state, handle_peer, NextStateData, ?TIMEOUT}
  		end
  	catch
  		_:R ->
  erlang:display({errrrr, R}),
  			EapPacket = #eap_packet{code = failure, identifier = EapID},
  			send_response(EapPacket, ?AccessReject,
  					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  