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.2 -r1.1.2.3
--- openacs-4/packages/xooauth/tcl/oauth-procs.tcl	10 Nov 2020 08:44:57 -0000	1.1.2.2
+++ openacs-4/packages/xooauth/tcl/oauth-procs.tcl	11 Mar 2021 10:20:16 -0000	1.1.2.3
@@ -500,8 +500,7 @@
       set parameter_pair_list [list]
 
       # Step 1: Get query parameters
-      foreach pair [split $uri(query) &] {
-        lassign [split $pair =] key value
+      foreach {key value} [ns_set array [ns_parsequery $uri(query)]] {
         #:msg "parameter_list [list [ns_urldecode $key] [ns_urldecode $value]]"
         lappend parameter_pair_list [list [:decode $key] [:decode $value]]
       }
@@ -515,8 +514,7 @@
       # Step 3: Get Entity Body
       if {[string match "*x-www-form-urlencoded*" ${:content_type}]} {
         if {${:post_data} ne ""} {
-          foreach pair [split ${:post_data} &] {
-            lassign [split $pair =] key value
+          foreach {key value} [ns_set array [ns_parsequery ${:post_data}]] {
             #:msg "parameter_list [list [ns_urldecode $key] [ns_urldecode $value]]"
             lappend parameter_pair_list [list [:decode $key] [:decode $value]]
           }