Index: openacs-4/packages/xooauth/tcl/oauth-client-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xooauth/tcl/Attic/oauth-client-procs.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/xooauth/tcl/oauth-client-procs.tcl	7 Nov 2020 17:58:25 -0000	1.1.2.1
+++ openacs-4/packages/xooauth/tcl/oauth-client-procs.tcl	11 Mar 2021 10:18:06 -0000	1.1.2.2
@@ -81,9 +81,7 @@
     if {[$r set status_code] eq 200} {
       [:context] load_form_parameter
       #TODO: Also used by server - make a method
-      #TODO - Replace with a regexp
-      foreach pair [split [$r set data] &] {
-        lassign [split $pair =] key value
+      foreach {key value} [ns_set array [ns_parsequery [$r set data]] {
         set creds($key) [:decode $value]
         :log "set creds($key) [:decode $value]"
       }