diff --git a/R/oauth-flow-auth-code.R b/R/oauth-flow-auth-code.R
index 885b0346..4d5bb0ce 100644
--- a/R/oauth-flow-auth-code.R
+++ b/R/oauth-flow-auth-code.R
@@ -183,7 +183,7 @@ oauth_flow_auth_code <- function(
     client,
     grant_type = "authorization_code",
     code = code,
-    redirect_uri = redirect_uri,
+    redirect_uri = redirect$uri,
     !!!token_params
   )
 }