Index: openacs-4/packages/acs-tcl/tcl/test/http-client-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/http-client-procs.tcl,v
diff -u -r1.1.2.22 -r1.1.2.23
--- openacs-4/packages/acs-tcl/tcl/test/http-client-procs.tcl	26 Nov 2022 16:47:54 -0000	1.1.2.22
+++ openacs-4/packages/acs-tcl/tcl/test/http-client-procs.tcl	24 Jul 2023 12:59:24 -0000	1.1.2.23
@@ -270,7 +270,7 @@
         aa_true "One cannot specify URLvars and POST vars at the same time" [catch {
             util::http::post \
                 -url $url?thevars=1 \
-                -formvars [export_vars -url {{thevars 2}}] \
+                -formvars [export_vars {{thevars 2}}] \
                 -formvars_list {thevars 3 thevars 4}
         } errmsg]
 
@@ -279,14 +279,14 @@
             util::http::post \
                 -url $url \
                 -files {{file /tmp/myfile.txt fieldname thevars}} \
-                -formvars [export_vars -url {{thevars 2}}] \
+                -formvars [export_vars {{thevars 2}}] \
                 -formvars_list {thevars 3 thevars 4}
         } errmsg]
 
         aa_section "Combine URLencoded and list parameters in a urlencoded POST request"
         set r [util::http::post \
                    -url $url \
-                   -formvars [export_vars -url {{vars 2} {vars_urlencoded:multiple {c d e f}}}] \
+                   -formvars [export_vars {{vars 2} {vars_urlencoded:multiple {c d e f}}}] \
                    -formvars_list {vars 3 vars 4 vars_list a vars_list b}]
         lassign [dict get $r page] files vars vars_urlencoded vars_list
         aa_equals "'files' has been sent correctly" \
@@ -313,7 +313,7 @@
         set r [util::http::post \
                    -url $url \
                    -files $files \
-                   -formvars [export_vars -url {{vars 2} {vars_urlencoded:multiple {c d e f}}}] \
+                   -formvars [export_vars {{vars 2} {vars_urlencoded:multiple {c d e f}}}] \
                    -formvars_list {vars 3 vars 4 vars_list a vars_list b}]
         lassign [dict get $r page] files vars vars_urlencoded vars_list
         aa_equals "'files' has been sent correctly" \
@@ -329,7 +329,7 @@
         set r [util::http::post \
                    -url $url \
                    -multipart \
-                   -formvars [export_vars -url {{vars 2} {vars_urlencoded:multiple {c d e f}}}] \
+                   -formvars [export_vars {{vars 2} {vars_urlencoded:multiple {c d e f}}}] \
                    -formvars_list {vars 3 vars 4 vars_list a vars_list b}]
         lassign [dict get $r page] files vars vars_urlencoded vars_list
         aa_equals "'files' has been sent correctly" \