anchor.diff:  		Response = #radius{code = ?AccessChallenge, id = RadiusID,
   				authenticator = ResponseAuthenticator, attributes = AttributeData},
   		ResponsePacket = radius:codec(Response),
  -		radius:response(RadiusFsm, ResponsePacket),
  +		radius:response(RadiusFsm, {response, ResponsePacket}),
   		NewStateData = StateData#statedata{pwe = PWE, s_rand = S_rand, peer_id = PeerID,
   			eap_id = NewEAPID, scalar_s = ScalarS, element_s = ElementS},
   		{next_state, wait_for_commit, NewStateData, ?TIMEOUT}
  
positive.code: 							Response = #radius{code = ?AccessAccept, id = RadiusID,
  								authenticator = ResponseAuthenticator, attributes = AttributeData},
  							ResponsePacket = radius:codec(Response),
  							radius:response(RadiusFsm, ResponsePacket),
  							{next_state, wait_for_confirm, StateData, ?TIMEOUT};
  						_ ->
  							send_reject(RadiusID, RequestAuthenticator, Secret, RadiusFsm),
  
negative.code: 	Response = #radius{code = ?AccessReject, id = RadiusID,
  		authenticator = ResponseAuthenticator, attributes = AttributeData},
  			ResponsePacket = radius:codec(Response),
  	radius:response(RadiusFsm, {response, ResponsePacket}).
  