Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -N -r1.71.2.23 -r1.71.2.24
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	13 May 2020 08:32:05 -0000	1.71.2.23
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	3 Jun 2020 17:21:06 -0000	1.71.2.24
@@ -502,6 +502,10 @@
         [export_vars -base "dummy?"] \
         "dummy"
 
+    aa_equals "base containing more than two slashes " \
+        [export_vars -base "http://dummywebsite.com/one/two" {{foo a} {bar b}}] \
+        "http://dummywebsite.com/one/two?foo=a&bar=b"
+
     # Test base with query vars
     set var1 a
     set var2 {}