Index: openacs-4/packages/xooauth/tcl/authorize-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xooauth/tcl/authorize-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/xooauth/tcl/authorize-procs.tcl	9 May 2023 17:29:33 -0000	1.1.2.3
+++ openacs-4/packages/xooauth/tcl/authorize-procs.tcl	10 May 2023 07:02:38 -0000	1.1.2.4
@@ -50,7 +50,7 @@
             set client_id ${:client_id}
             set scope ${:scope}
             set state [::xo::oauth::nonce]
-            set redirect_uri [:qualifed ${:responder_url}]
+            set redirect_uri [:qualified ${:responder_url}]
 
             return [export_vars -no_empty -base $base {
                 client_id redirect_uri state scope login
@@ -60,7 +60,7 @@
         :method redeem_code {code} {
             set client_id ${:client_id}
             set client_secret ${:client_secret}
-            set redirect_uri [:qualifed ${:responder_url}]
+            set redirect_uri [:qualified ${:responder_url}]
             set url [export_vars -no_empty -base ${:base_url}/access_token {
                 client_id client_secret code redirect_uri
             }]
Index: openacs-4/packages/xooauth/tcl/ms-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xooauth/tcl/ms-procs.tcl,v
diff -u -r1.1.2.19 -r1.1.2.20
--- openacs-4/packages/xooauth/tcl/ms-procs.tcl	9 May 2023 17:29:33 -0000	1.1.2.19
+++ openacs-4/packages/xooauth/tcl/ms-procs.tcl	10 May 2023 07:02:38 -0000	1.1.2.20
@@ -1129,7 +1129,7 @@
             set response_type ${:response_type}
             set nonce [::xo::oauth::nonce]
             set response_mode form_post
-            set redirect_uri [:qualifed ${:responder_url}]
+            set redirect_uri [:qualified ${:responder_url}]
             
             return [export_vars -no_empty -base $base {                
                 client_id response_type redirect_uri response_mode