Index: openacs-4/packages/acs-tcl/tcl/test/http-client-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/http-client-procs.tcl,v
diff -u -r1.1.2.11 -r1.1.2.12
--- openacs-4/packages/acs-tcl/tcl/test/http-client-procs.tcl	9 Feb 2020 15:23:29 -0000	1.1.2.11
+++ openacs-4/packages/acs-tcl/tcl/test/http-client-procs.tcl	11 Feb 2020 18:28:17 -0000	1.1.2.12
@@ -16,7 +16,16 @@
         Test that JSON is encoded as expected
     } {
         set endpoint_name /acs-tcl-test-http-client-procs-util-http-json-encoding
-        set url [ad_url]$endpoint_name
+        set url [ad_url]
+        #
+        # Fallback to util_current_location if ad_url returns an empty string,
+        # such in cases when the SystemUrl is not set.
+        #
+        if {$url eq ""} {
+            set url [util_current_location]
+        }
+        set url $url$endpoint_name
+
         set response {{key1: "äöü", key2: "äüö", key3: "Ilić"}}
 
         set methods {POST GET}