Index: openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl,v
diff -u -N -r1.28 -r1.28.2.1
--- openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl	17 Sep 2018 13:05:58 -0000	1.28
+++ openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl	7 Feb 2020 16:51:26 -0000	1.28.2.1
@@ -1025,6 +1025,12 @@
     # current IPv4 address http://127.0.0.1:.../ succeeds. However,
     # the determination of the current IP address requires NaviServer
     # 4.99.17d3 or newer, so we can't assume, this works always.
+    #
+    # If ad_url is empty, try util_current_location instead.
+    #
+    if {$url eq ""} {
+        set url [util_current_location]
+    }
     set parsed_url [ns_parseurl $url]
     if {[dict get $parsed_url host] eq "localhost"} {
         set url [dict get $parsed_url proto]://127.0.0.1:[dict get $parsed_url port]