Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -N -r1.189.2.80 -r1.189.2.81
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Feb 2021 16:44:18 -0000	1.189.2.80
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	10 Mar 2021 10:56:48 -0000	1.189.2.81
@@ -1486,9 +1486,10 @@
     url
     { persistent "f" }
     { excluded_vars "" }
-} {
-    An addition to ad_returnredirect.  It caches all variables in the redirect except those in excluded_vars
-    and then calls ad_returnredirect with the resultant string.
+} {    
+    An addition to ad_returnredirect.  It caches all variables in the
+    redirect except those in excluded_vars and then calls
+    ad_returnredirect with the resultant string.
 
     @author Brad Duell (bduell@ncacasi.org)
 
@@ -1525,8 +1526,7 @@
 
     set saved_list ""
     if { $vars ne "" } {
-        foreach item_value [split $vars "&"] {
-            lassign [split $item_value "="] item value
+        foreach {item value} [ns_set array [ns_parsequery $vars]] {
             if {$item ni $excluded_vars_list} {
                 # No need to save the value if it's being passed ...
                 if {$item in $saved_list} {