anchor.diff:  						eap_id = NextEapID, id_req = full, identity = Identity},
   				EapPacket = #eap_packet{code = request,
   						type = ?AKAprime, identifier = NextEapID, data = EapData},
  -				EapMessage = ocs_eap_codec:eap_packet(EapPacket),
  +				EapMessage1 = ocs_eap_codec:eap_packet(EapPacket),
   				send_diameter_response(SessionId, AuthReqType,
   						?'DIAMETER_BASE_RESULT-CODE_MULTI_ROUND_AUTH', OHost, ORealm,
  -						EapMessage, PortServer, Request, NextStateData),
  +						EapMessage1, PortServer, Request, NextStateData),
   				{next_state, identity, NextStateData, ?TIMEOUT};
   			#eap_packet{code = response, type = ?Identity,
   					identifier = StartEapID, data = Identity} ->
  
positive.code: 						{pid, self()}, {session_id, SessionId}, {code, Code},
  						{type, EapType}, {identifier, NewEapID}, {data, Data}]),
  				EapPacket = #eap_packet{code = failure, identifier = NewEapID},
  				EapMessage = ocs_eap_codec:eap_packet(EapPacket),
  				send_diameter_response(SessionId, AuthReqType,
  						?'DIAMETER_BASE_RESULT-CODE_UNABLE_TO_COMPLY', OHost, ORealm,
  					EapMessage, PortServer, Request, NewStateData),
  				{stop, {shutdown, SessionId}, NewStateData}
  		end
  	catch
  		{'EXIT', _Reason} ->
  			EapPacket1 = #eap_packet{code = failure, identifier = EapID},
  			EapMessage1 = ocs_eap_codec:eap_packet(EapPacket1),
  			send_diameter_response(SessionId, AuthReqType,
  					?'DIAMETER_BASE_RESULT-CODE_UNABLE_TO_COMPLY', OHost, ORealm,
  					EapMessage1, PortServer, Request, NewStateData),
  			{stop, {shutdown, SessionId}, NewStateData}
  	end.
  
  
negative.code: 						eap_id = NextEapID, identity = Identity, id_req = full},
  				EapPacket = #eap_packet{code = request,
  						type = ?AKAprime, identifier = NextEapID, data = EapData},
  				EapMessage1 = ocs_eap_codec:eap_packet(EapPacket),
  				send_diameter_response(SessionId, AuthReqType,
  						?'DIAMETER_BASE_RESULT-CODE_MULTI_ROUND_AUTH', OHost, ORealm,
  						EapMessage1, PortServer, Request, NextStateData),
  				{next_state, identity, NextStateData, ?TIMEOUT};
  			#eap_packet{code = request, identifier = NewEapID} ->
  				EapPacket = #eap_packet{code = response, type = ?LegacyNak,
  						identifier = NewEapID, data = <<0>>},
  				EapMessage1 = ocs_eap_codec:eap_packet(EapPacket),
  				send_diameter_response(SessionId, AuthReqType,
  						?'DIAMETER_BASE_RESULT-CODE_UNABLE_TO_COMPLY', OHost, ORealm,
  						EapMessage1, PortServer, Request, NewStateData),
  				{stop, {shutdown, SessionId}, NewStateData};
  			#eap_packet{code = Code, type = EapType,
  					identifier = NewEapID, data = Data} ->
  