anchor.diff:  				{ok, Username} ->
   					Username;
   				{error, not_found} ->
  -					undefined;
  -			end;
  +					undefined
  +			end,
   			AcctSessionId = case radius_attributes:find(?AcctSessionId, ExistingSessionAtt) of
   				{ok, ActSesId} ->
   					ActSesId;
   				{error, not_found} ->
  -					undefined;
  -			end;
  -			DiscArgs = [Address, Nas, Subscriber, AcctSessionId, Secret,
  +					undefined
  +			end,
  +			DiscArgs = [Address, NAS, Subscriber, AcctSessionId, Secret,
   					ListenPort, ExistingSessionAtt, 1],
   			StartArgs = [DiscArgs, []],
   			case supervisor:start_child(DiscFsmSup, StartArgs) of
  
positive.code: 					{next_state, request, StateData};
  				{error, Reason} ->
  					error_logger:error_report(["Failed to initiate session disconnect function",
  							{module, ?MODULE}, {subscriber, Subscriber}, {nas, NasId},
  							{address, Address}, {session, AcctSessionId}, {error, Reason}]),
  					{next_state, request, StateData}
  			end
  
negative.code: start_disconnect(DiscFsmSup, ExistingSessionAtt, #statedata{client_address =
  		Address} = StateData) ->
  	try
  			NAS = case {radius_attributes:find(?NasIpAddress, ExistingSessionAtt),
  								radius_attributes:find(?NasIdentifier)} of
  				{{_, IP}, {error, _}} ->
  					IP;
  				{_, {ok, ID}} ->
  					ID
  			end,
  			{ok, #client{port = ListenPort, protocol = radius, secret = Secret}}
  					= ocs:find_client(Address),
  