Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -319,11 +319,13 @@
 			  ;; (process-fork (lambda ()
 			  ;;       	  (daemon:ize)
 			  ;;       	  (server:launch (string->symbol (args:get-arg "-transport" "http")))))
 			  ;; (thread-sleep! 3)
 			  )
-			(debug:print-info 0 "Waiting for server to start"))
+			(begin
+			  (debug:print-info 0 "Waiting for server to start")
+			  (thread-sleep! 1)))
 		    (loop (open-run-close tasks:get-best-server tasks:open-db) 
 			  (+ trycount 1)))
 		  (debug:print 0 "INFO: Server(s) running " servers)
 		  )))))