Index: openacs-4/packages/xooauth/tcl/oauth-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xooauth/tcl/oauth-procs.tcl,v
diff -u -r1.1.2.6 -r1.1.2.7
--- openacs-4/packages/xooauth/tcl/oauth-procs.tcl	13 Sep 2022 09:38:32 -0000	1.1.2.6
+++ openacs-4/packages/xooauth/tcl/oauth-procs.tcl	1 Nov 2022 16:17:14 -0000	1.1.2.7
@@ -215,8 +215,12 @@
     is conformant to "http://tools.ietf.org/html/rfc5849#section-3.4.1.2".
     Most importantly, it strips any query part from the URL.
   } {
-    array set "" [uri::split $uri]
-    set base_string_uri [uri::join scheme $(scheme) host $(host) port $(port) path $(path)]
+    set info [uri::split $uri]
+    set base_string_uri [uri::join \
+                             scheme [dict get $info scheme] \
+                             host [dict get $info host] \
+                             port [dict get $info port] \
+                             path [dict get $info path]]
     return $base_string_uri
   }