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.21 -r1.71.2.22
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	29 Nov 2019 13:57:30 -0000	1.71.2.21
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	13 Jan 2020 15:07:17 -0000	1.71.2.22
@@ -491,6 +491,14 @@
         [export_vars -no_empty { foo { bar "" } }] \
         "foo=1&bar="
 
+    aa_equals "base ending with '?', with vars" \
+        [export_vars -base "dummy?" { foo { bar "" } }] \
+        "dummy?foo=1&bar="
+
+    aa_equals "base ending with '?', no vars" \
+        [export_vars -base "dummy?"] \
+        "dummy"
+
     # Test base with query vars
     set var1 a
     set var2 {}