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.133.2.19 -r1.133.2.20
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	29 Sep 2013 12:07:34 -0000	1.133.2.19
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	29 Sep 2013 14:27:38 -0000	1.133.2.20
@@ -2442,26 +2442,28 @@
         set driver [ad_conn driver]
     }
 
+    set section [ns_driversection -driver $driver]
+
     switch $driver {
         nssock {
             set result(proto) http
-            set result(port) [ns_config -int "ns/server/[ns_info server]/module/nssock" Port]
+            set result(port) [ns_config -int $section Port]
         }
         nsunix {
             set result(proto) http
             set result(port) {}
         }
         nsssl - nsssle {
-            set result(port) [ns_config -int "ns/server/[ns_info server]/module/[ad_conn driver]" Port]
+            set result(port) [ns_config -int $section Port]
             set result(proto) https
         }
         nsopenssl {
-            set result(port) [ns_config -int "ns/server/[ns_info server]/module/[ad_conn driver]" ServerPort]
+            set result(port) [ns_config -int $section ServerPort]
             set result(proto) https
         }
         default {
             ns_log Error "Unknown driver: [ad_conn driver]. Only know nssock, nsunix, nsssl, nsssle, nsopenssl"
-            set result(port) [ns_config -int "ns/server/[ns_info server]/module/nssock" Port]
+            set result(port) [ns_config -int $section Port]
             set result(proto) http
         }
     }