anchor.diff:  							Response = #radius{code = ?AccessAccept, id = RadiusID,
   								authenticator = ResponseAuthenticator, attributes = AttributeData},
   							ResponsePacket = radius:codec(Response),
  -							radius:response(RadiusFsm, ResponsePacket),
  +							radius:response(RadiusFsm, {response, ResponsePacket}),
   							{next_state, wait_for_confirm, StateData, ?TIMEOUT};
   						_ ->
   							send_reject(RadiusID, RequestAuthenticator, Secret, RadiusFsm),
  
positive.code: 	Response = #radius{code = ?AccessChallenge, id = RadiusID,
  			authenticator = ResponseAuthenticator, attributes = AttributeData},
  	ResponsePacket = radius:codec(Response),
  	radius:response(RadiusFsm, ResponsePacket),
  	NewStateData = StateData#statedata{eap_id = EapID,
  			token = Token, prep = none},
  	{next_state, wait_for_id, NewStateData, ?TIMEOUT}.
  
negative.code: 				Response = #radius{code = ?AccessChallenge, id = RadiusID,
  						authenticator = ResponseAuthenticator, attributes = AttributeData},
  				ResponsePacket = radius:codec(Response),
  				radius:response(RadiusFsm, {response, ResponsePacket}),
  				NewStateData = StateData#statedata{eap_id = NewEAPID, ks = Ks,
  						confirm_s = ConfirmS},
  				{next_state, wait_for_confirm, StateData, ?TIMEOUT};
  