Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.180 -r1.181
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	19 Sep 2018 00:55:36 -0000	1.180
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	19 Sep 2018 07:05:32 -0000	1.181
@@ -462,7 +462,7 @@
 
     Generate html option tags with values for an html selection widget. If
     select_option is passed and there exists a value for it in the values
-    list, this option will be marked as selected. The "select_option" can be 
+    list, this option will be marked as selected. The "select_option" can be
     a list, in which case all options matching a value in the list will be
     marked as selected.
 
@@ -1825,6 +1825,17 @@
         return $::__util_current_location
     }
 
+    #
+    # In case we have no connection return the location based on the
+    # configured kernel parameters. This will be the same value for
+    # all (maybe host-node mapped) subsites, so probably one should
+    # parametrize this function with a subsite value and compute the
+    # result in the non-connected based on the subsite_id.
+    #
+    if {![ns_conn isconnected]} {
+        return [ad_url]
+    }
+
     set default_port(http) 80
     set default_port(https) 443
     #
@@ -4021,7 +4032,7 @@
     #}
     # didn't find it
     #return -1
-    
+
     return [lsearch -index $sublist_element_pos $list_of_lists $query_string]
 }