Index: openacs-4/packages/xooauth/tcl/oauth-server-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xooauth/tcl/Attic/oauth-server-procs.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/xooauth/tcl/oauth-server-procs.tcl	7 Nov 2020 17:58:25 -0000	1.1.2.1
+++ openacs-4/packages/xooauth/tcl/oauth-server-procs.tcl	1 Nov 2022 16:17:14 -0000	1.1.2.2
@@ -338,8 +338,8 @@
     set path_query_fragment [ns_conn url]
     #my log ----$path_query_fragment
     # Strip eventual query parameters from path
-    array set "" [uri::split $path_query_fragment]
-    set path $(path)
+    set info [uri::split $path_query_fragment]
+    set path [dict get $info path]
     # uri::join also omits default ports, as required by OAuth
     set base_string_uri [uri::join scheme $scheme host $host port $port path $path]
     #my log "set base_string_uri uri::join scheme $scheme host $host port $port path $path"