anchor.diff:  
   server_hello_radius(Socket, Address, Port, NasId, UserName, Secret,
   		MAC, Auth, RadId) ->
  -	EapMsg = access_challenge(Socket, Address, Port,
  +	Radius = access_challenge(Socket, Address, Port,
   			Secret, RadId, Auth),
  +	EapMsg = get_eap(Radius),
   	#eap_packet{code = request, identifier = EapId, type = ?TTLS,
   			data = EapData} = ocs_eap_codec:eap_packet(EapMsg),
   	TtlsData = ocs_eap_codec:eap_ttls(EapData),
  
positive.code: 		NasId, UserName, Secret, MAC, Auth, RadId, EapId, Buf) ->
  	send_ack(Socket, Address, Port, NasId, UserName, Secret,
  			MAC, Auth, RadId, EapId),
  	EapMsg = access_challenge(Socket, Address, Port, Secret, RadId, Auth),
  	#eap_packet{code = request, identifier = NewEapId, type = ?TTLS,
  			data = EapData} = ocs_eap_codec:eap_packet(EapMsg),
  	TtlsPacket = ocs_eap_codec:eap_ttls(EapData),
  
negative.code: 
  server_passthrough_radius(Socket, Address, Port, _NasId, _UserName, Secret,
  			_MAC, Auth, RadId) ->
  	Radius = access_accept(Socket, Address, Port,
  			Secret, RadId, Auth),
  	EapMsg = get_eap(Radius),
  	#eap_packet{code = success, identifier = _EapId} = ocs_eap_codec:eap_packet(EapMsg),
  	ok.
  
  