anchor.diff:  				radius:response(RadiusFsm, ResponsePacket),
   				NewStateData = StateData#statedata{eap_id = NewEAPID, ks = Ks,
   						confirm_s = ConfirmS},
  -				{next_state, wait_for_confirm, StateData, 0};
  +				{next_state, wait_for_confirm, StateData, ?TIMEOUT};
   			{error,exit} ->
   				{next_state, wait_for_commit, StateData,0}
   		end
  
positive.code: 		{next_state, wait_for_commit, NewStateData, ?TIMEOUT}
  	catch
  		_:_ ->
  			{next_state, wait_for_id, StateData,0}
  	end.
  
  -spec wait_for_commit(Event :: timeout | term(), StateData :: #statedata{}) ->
  
negative.code: 	radius:response(RadiusFsm, ResponsePacket),
  	NewStateData = StateData#statedata{eap_id = EapID,
  			token = Token, prep = none},
  	{next_state, wait_for_id, NewStateData, ?TIMEOUT}.
  
  -spec wait_for_id(Event :: timeout | term(), StateData :: #statedata{}) ->
  	Result :: {next_state, NextStateName :: atom(), NewStateData :: #statedata{}}
  