Index: openacs-4/packages/xooauth/tcl/authorize-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xooauth/tcl/Attic/authorize-procs.tcl,v
diff -u -N -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/xooauth/tcl/authorize-procs.tcl	9 May 2023 10:03:56 -0000	1.1.2.2
+++ openacs-4/packages/xooauth/tcl/authorize-procs.tcl	9 May 2023 17:29:33 -0000	1.1.2.3
@@ -35,6 +35,10 @@
         :property {scope}
         :property {debug:switch false}
 
+        :method qualified {partial_url} {
+            return [util_current_location]$partial_url
+        }
+        
         :public method login_url {
             {-state}
             {-login}
@@ -46,7 +50,7 @@
             set client_id ${:client_id}
             set scope ${:scope}
             set state [::xo::oauth::nonce]
-            set redirect_uri "[ad_url]${:responder_url}"
+            set redirect_uri [:qualifed ${:responder_url}]
 
             return [export_vars -no_empty -base $base {
                 client_id redirect_uri state scope login
@@ -56,7 +60,7 @@
         :method redeem_code {code} {
             set client_id ${:client_id}
             set client_secret ${:client_secret}
-            set redirect_uri "[ad_url]${:responder_url}"
+            set redirect_uri [:qualifed ${:responder_url}]
             set url [export_vars -no_empty -base ${:base_url}/access_token {
                 client_id client_secret code redirect_uri
             }]