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 -r1.71.2.24 -r1.71.2.25
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	3 Jun 2020 17:21:06 -0000	1.71.2.24
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	3 Jun 2020 18:14:04 -0000	1.71.2.25
@@ -544,11 +544,17 @@
         [ad_urlencode_url $url] \
         $url
 
+    set url http://dummywebsite.com/one/two
+    aa_equals "base with path containing more than 1 slash" \
+        [ad_urlencode_url $url] \
+        $url
+
     # Test full qualified base without query vars
     set base http://example.com/example
     aa_equals "base without query vars" \
         [export_vars -base $base] \
         $base
+
 }
 
 aa_register_case \