Index: openacs-4/packages/xml-rpc/tcl/test/xml-rpc-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xml-rpc/tcl/test/xml-rpc-test-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/xml-rpc/tcl/test/xml-rpc-test-procs.tcl	11 Dec 2019 14:18:01 -0000	1.7
+++ openacs-4/packages/xml-rpc/tcl/test/xml-rpc-test-procs.tcl	11 Feb 2020 19:13:48 -0000	1.8
@@ -201,8 +201,13 @@
              nestedStructTest 7 \
              simpleStructReturnTest {times1000 2000 times100 200 times10 20}
         ]
-    set url [ad_url][xmlrpc::url]
 
+    set url [ad_url]
+    if {$url eq ""} {
+        set url [util_current_location]
+    }
+    set url $url[xmlrpc::url]
+
     aa_run_with_teardown -rollback -test_code {
         foreach {test_name expected} $test_list {
             set result [validate1.$test_name $url]