Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -134,11 +134,11 @@
 
 ;; This is recursively run by http-transport:run until sucessful
 ;;
 (define (http-transport:try-start-server run-id ipaddrstr portnum server-id)
   (let ((config-hostname (configf:lookup *configdat* "server" "hostname")))
-    (debug:print-info 2 "http-transport:try-start-server run-id=" run-id " ipaddrsstr=" ipaddrstr " portnum=" portnum " server-id=" server-id " config-hostname=" config-hostname)
+    (debug:print-info 0 "http-transport:try-start-server run-id=" run-id " ipaddrsstr=" ipaddrstr " portnum=" portnum " server-id=" server-id " config-hostname=" config-hostname)
     (handle-exceptions
      exn
      (begin
        (print-error-message exn)
        (if (< portnum 64000)
@@ -162,11 +162,11 @@
      (set! *server-info* (list ipaddrstr portnum))
      (open-run-close tasks:server-set-interface-port 
 		     tasks:open-db 
 		     server-id 
 		     ipaddrstr portnum)
-     (debug:print 1 "INFO: Trying to start server on " ipaddrstr ":" portnum)
+     (debug:print 0 "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)
      (if config-hostname ;; this is a hint to bind directly
 	 (start-server port: portnum bind-address: (if (equal? config-hostname "-")
@@ -337,10 +337,12 @@
   ;; This thread waits for the server to come alive
   (let* ((server-info (let loop ((start-time (current-seconds))
 				 (changed    #t)
 				 (last-sdat  "not this"))
                         (let ((sdat #f))
+			  (thread-sleep! 0.01)
+			  (debug:print-info 0 "Waiting for server alive signal")
                           (mutex-lock! *heartbeat-mutex*)
                           (set! sdat *server-info*)
                           (mutex-unlock! *heartbeat-mutex*)
                           (if (and sdat
 				   (not changed)
@@ -491,17 +493,19 @@
 	      ;; since we didn't get the server lock we are going to clean up and bail out
 	      (debug:print-info 2 "INFO: server pid=" (current-process-id) ", hostname=" (get-host-name) " not starting due to other candidates ahead in start queue")
 	      (open-run-close tasks:server-delete-records-for-this-pid tasks:open-db " http-transport:launch")
 	      ))
 	(let* ((th2 (make-thread (lambda ()
+				   (debug:print-info 0 "Server run thread started")
 				   (http-transport:run 
 				    (if (args:get-arg "-server")
 					(args:get-arg "-server")
 					"-")
 				    run-id
 				    server-id)) "Server run"))
 	       (th3 (make-thread (lambda ()
+				   (debug:print-info 0 "Server monitor thread started")
 				   (http-transport:keep-running server-id run-id))
 				 "Keep running")))
 	  ;; Database connection
 
 

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -87,11 +87,12 @@
 	 (target-host (configf:lookup *configdat* "server" "homehost" ))
 	 (logfile     (conc *toppath* "/logs/" run-id ".log"))
 	 (cmdln (conc (common:get-megatest-exe)
 		      " -server " (or target-host "-") " -run-id " run-id (if (equal? (configf:lookup *configdat* "server" "daemonize") "yes")
 									      (conc " -daemonize -log " logfile)
-									      "")))) ;; (conc " >> " logfile " 2>&1 &")))))
+									      "")
+		      " -debug 4 "))) ;; (conc " >> " logfile " 2>&1 &")))))
     (debug:print 0 "INFO: Starting server (" cmdln ") as none running ...")
     (push-directory *toppath*)
     (if (not (directory-exists? "logs"))(create-directory "logs"))
     ;; host.domain.tld match host?
     (if (and target-host