Index: openacs-4/packages/acs-tcl/acs-tcl.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/acs-tcl.info,v
diff -u -r1.78 -r1.79
--- openacs-4/packages/acs-tcl/acs-tcl.info	27 Mar 2018 11:18:00 -0000	1.78
+++ openacs-4/packages/acs-tcl/acs-tcl.info	28 May 2018 15:46:26 -0000	1.79
@@ -9,7 +9,7 @@
     <implements-subsite-p>f</implements-subsite-p>
     <inherit-templates-p>t</inherit-templates-p>
     
-    <version name="5.10.0d6" url="http://openacs.org/repository/download/apm/acs-tcl-5.10.0d6.apm">
+    <version name="5.10.0d7" url="http://openacs.org/repository/download/apm/acs-tcl-5.10.0d7.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <summary>The Kernel Tcl API library.</summary>
         <release-date>2017-08-06</release-date>
@@ -18,7 +18,7 @@
         <license>GPL version 2</license>
         <maturity>3</maturity>
 
-        <provides url="acs-tcl" version="5.10.0d6"/>
+        <provides url="acs-tcl" version="5.10.0d7"/>
         <requires url="acs-bootstrap-installer" version="5.10.0d3"/>
         <requires url="acs-kernel" version="5.9.1"/>
 
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.156 -r1.157
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	9 May 2018 15:33:29 -0000	1.156
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 May 2018 15:46:26 -0000	1.157
@@ -1675,7 +1675,7 @@
     Returns the protocol and port for the specified (or current) driver.
 
     @param driver the driver to query (defaults to [ad_conn driver])
-    @param array the array to populate with proto and port
+    @param array the array to populate with proto, address and port
 
     @see security::configured_driver_info
 } {
@@ -1689,16 +1689,16 @@
     switch -glob -- $driver {
         nsudp* -
         nssock* {
-            set d [list proto http port [ns_config -int $section Port]] 
+            set d [list proto http port [ns_config -int $section Port] address [ns_config $section address]]
         }
         nsunix {
-            set d [list proto http port ""]
+            set d [list proto http port "" address ""]
         }
         nsssl* - nsssle {
-            set d [list proto https port [ns_config -int $section Port]]
+            set d [list proto https port [ns_config -int $section Port] address [ns_config $section address]]
         }
         nsopenssl {
-            set d [list proto https port [ns_config -int $section ServerPort]]
+            set d [list proto https port [ns_config -int $section ServerPort] address [ns_config $section address]]
         }
         default {
             ns_log Error "Unknown driver: [ad_conn driver]. Only know nssock, nsunix, nsssl, nsssle, nsopenssl"