anchor.diff:  	Resp3 = Resp2#radius{attributes = RespAttr2},
   	RespPacket3 = radius:codec(Resp3),
   	MsgAuth = crypto:hmac(md5, Secret, RespPacket3),
  -	radius_attributes:fetch(?EAPMessage, RespAttr1).
  +	{ok, EapMsg} = radius_attributes:find(?EAPMessage, RespAttr1),
  +	EapMsg.
   
   send_identity(Socket, Address, Port, NasId,
   		UserName, Secret, PeerId, MAC, Auth, EapId, RadId) ->
  
positive.code: 	access_request(Socket, Address, Port, NasId,
  			UserName, Secret, MAC, Auth, RadId, EapMsg).
  
  send_commit(Socket, Address, Port, Secret, Auth, UserName,
  		NasId, PeerId, MAC, Token, PeerId, ServerID, Password, EapId, RadId) ->
  	Prand = crypto:rand_uniform(1, ?R),
  	PWE = ocs_eap_pwd:compute_pwe(Token, PeerId, ServerID, Password),
  	{ScalarP, ElementP} = ocs_eap_pwd:compute_scalar(<<Prand:256>>, PWE),
  	EapPwdCommit = #eap_pwd_commit{scalar = ScalarP, element = ElementP},
  	EapPwd = #eap_pwd{length = false, more = false, pwd_exch = commit,
  
negative.code: pwd_id(Config) ->
  	PeerId = <<"23456789">>,
  	MAC = "bb:cc:dd:ee:ff:aa",
  	PeerAuth = list_to_binary(ocs:generate_password()),
  	ok = ocs:add_subscriber(PeerId, PeerAuth, []),
  	Socket = ?config(socket, Config), 
  	{ok, Address} = application:get_env(ocs, radius_auth_addr),
  