anchor.diff:          UpdateClient =
               fun (State, Creds) ->
                   State#request_validation_state
  -                { creds_client = {some, Creds}
  +                { client_creds = {some, Creds}
                   }
               end,
  -        UpdateToken =
  +        UpdateTokenTmp =
               fun (State, Creds) ->
                   State#request_validation_state
  -                { creds_token = {some, Creds}
  +                { token_tmp = {some, Creds}
  +                }
  +            end,
  +        UpdateTokenFnl =
  +            fun (State, Creds) ->
  +                State#request_validation_state
  +                { token_final = {some, Creds}
                   }
               end,
           ErrorInvalidClient = {error,{unauthorized,client_credentials_invalid}},
  
positive.code: ) ->
      ValidateSignature =
          fun (#request_validation_state
              { creds_client = {some, ClientCredentials}
              , creds_token  = {some, Token}
              }=State) ->
              ClientSharedSecret =
                  oauth1_credentials:get_secret(ClientCredentials),
  
negative.code: ) ->
      ValidateSignature =
          fun (#request_validation_state
              { client_creds = {some, ClientCredentials}
              , token_tmp    = {some, Token}
              , verifier     = {some, Verifier}
              }=State) ->
              ClientSharedSecret =
  