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