anchor.diff:  return_ok_or_error(false) ->
       {error, already_used}.
   
  -validate_session_pid({ok,Data}) when is_atom(Data) ->
  +validate_pid_value({ok,_Id,Pid}) when is_pid(Pid) ->
  +    {ok, Pid};
  +validate_pid_value({ok,_Id,_Pid}) ->
       {error, not_set};
  -validate_session_pid(Result) ->
  -    Result.
  +validate_pid_value({error, _} = Error) ->
  +    Error.
   
   
   create_tables() ->
  
positive.code: 
  -spec sessions_get_pid(ID :: binary()) -> {ok, Pid :: pid()} | {error, Reason :: atom()}.
  sessions_get_pid(ID) ->
      validate_session_pid(lookup(?TTS_SESSIONS, ID)).
  
  -spec sessions_update_pid(ID :: binary(), Pid :: pid()) -> ok.
  sessions_update_pid(ID,Pid) ->
  
negative.code:         ]).
  
  -export([
           user_create_new/2,
           user_get_pid/1,
           user_delete/1,
           user_inspect/0
          ]).
  
  -export([
           oidc_add_op/5,
           oidc_op_set/3,
           oidc_get_op/1,
  