anchor.diff:  	end;
   add_service(Identity, Password, ProductRef, Chars, Attributes,
   		EnabledStatus, MultiSession) when is_binary(Identity), size(Identity) > 0,
  -		is_binary(Password), is_list(ProductRef), is_list(Attributes), is_boolean(EnabledStatus),
  +		is_binary(Password), is_list(Attributes), is_boolean(EnabledStatus),
   		is_boolean(MultiSession) ->
   	F1 =  fun() ->
   			add_service1(Identity, Password, ProductRef,
  
positive.code: 		undefined, Attributes, EnabledStatus, MultiSession) ->
  	add_service(Identity, Password, ProductRef,
  			[], Attributes, EnabledStatus, MultiSession);
  add_service(Identity, Password, undefined,
  		Chars, Attributes, EnabledStatus, MultiSession) ->
  	add_service(Identity, Password, [], Chars,
  			Attributes, EnabledStatus, MultiSession);
  add_service(Identity, undefined, ProductRef,
  		Chars, Attributes, EnabledStatus, MultiSession) ->
  	add_service(Identity, ocs:generate_password(),
  
negative.code: 	case mnesia:transaction(F1) of
  		{atomic, Service} ->
  			{ok, Service};
  		{aborted, {throw, Reason}} ->
  			{error, Reason};
  		{aborted, Reason} ->
  			{error, Reason}
  	end.
  