anchor.diff:  	SIdbin = list_to_binary(SId),
   	#diameter_eap_app_DEA{'Session-Id' = SIdbin, 'Auth-Application-Id' = ?EAP_APPLICATION_ID,
   			'Auth-Request-Type' =  ?'DIAMETER_BASE_AUTH-REQUEST-TYPE_AUTHORIZE_AUTHENTICATE',
  -			'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_MULTI_ROUND_AUTH'} = DEA,
  +			'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_MULTI_ROUND_AUTH',
  +			'EAP-Payload' = [Payload]} = DEA,
   	NextEapId = EapId + 1,
   	#eap_packet{code = request, type = ?AKAprime, identifier = NextEapId,
  -			data = EapData} = ocs_eap_codec:eap_packet(Payload).
  +			data = _EapData} = ocs_eap_codec:eap_packet(Payload).
   
   eap_identity_radius_trusted() ->
      [{userdata, [{doc, "Send an trusted EAP-Identity/Response using RADIUS"}]}].
  
positive.code: 			'EAP-Payload' = [Payload]} = DEA,
  	NextEapId = EapId + 1,
  	#eap_packet{code = request, type = ?AKAprime, identifier = NextEapId,
  			data = EapData} = ocs_eap_codec:eap_packet(Payload).
  
  %%---------------------------------------------------------------------
  %%  Internal functions
  
negative.code: 	P1 = price(usage, octets, rand:uniform(1000000), rand:uniform(100)),
  	OfferId = add_offer([P1], 4),
  	ProdRef = add_product(OfferId),
  	_Service = add_service(Name, ProdRef),
  	DEA = send_diameter_identity(SId, EapId, PeerId1),
  	SIdbin = list_to_binary(SId),
  	#diameter_eap_app_DEA{'Session-Id' = SIdbin, 'Auth-Application-Id' = ?EAP_APPLICATION_ID,
  