Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -164,11 +164,13 @@
 		   ipaddrstr portnum)
    (debug:print 1 "INFO: Trying to start server on " ipaddrstr ":" portnum)
    ;; This starts the spiffy server
    ;; NEED WAY TO SET IP TO #f TO BIND ALL
    ;; (start-server bind-address: ipaddrstr port: portnum)
-   (start-server port: portnum)
+   (if (configf:lookup *configdat* "server" "hostname") ;; this is a hint to bind directly
+       (start-server port: portnum bind-address: (configf:lookup *configdat* "server" "hostname"))
+       (start-server port: portnum))
    ;;  (portlogger:open-run-close portlogger:set-port portnum "released")
    (open-run-close tasks:server-force-clean-run-record tasks:open-db run-id ipaddrstr portnum " http-transport:try-start-server")
    (debug:print 1 "INFO: server has been stopped")))
 
 ;;======================================================================

Index: tests/fullrun/megatest.config
==================================================================
--- tests/fullrun/megatest.config
+++ tests/fullrun/megatest.config
@@ -129,10 +129,11 @@
 # Three minutes is 0.05 hours
 # timeout 0.025
 timeout 0.01
 
 daemonize yes
+hostname #{scheme (get-host-name)}
 
 ## disks are:
 ## name host:/path/to/area
 ## -or-
 ## name /path/to/area