Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -312,16 +312,19 @@
 		  (begin
 		    (if (even? trycount) ;; just do the server start every other time through this loop (every 8 seconds)
 			(begin
 			  (debug:print 0 "INFO: Starting server as none running ...")
 			  ;; (server:launch (string->symbol (args:get-arg "-transport" "http"))))
+			  ;; no need to use fork, no need to do the list-servers trick. Just start the damn server, it will exit on it's own
+			  ;; if there is an existing server
+			  (system "megatest -server - -daemonize")
+			  (thread-sleep! 3)
 			  ;; (process-run (car (argv)) (list "-server" "-" "-daemonize" "-transport" (args:get-arg "-transport" "http")))
-			  (system "megatest -list-servers | grep alive || megatest -server - -daemonize && sleep 3")
+			  ;; (system (conc "megatest -list-servers | egrep '" megatest-version ".*alive' || megatest -server - -daemonize && sleep 3"))
 			  ;; (process-fork (lambda ()
 			  ;;       	  (daemon:ize)
 			  ;;       	  (server:launch (string->symbol (args:get-arg "-transport" "http")))))
-			  ;; (thread-sleep! 3)
 			  )
 			(begin
 			  (debug:print-info 0 "Waiting for server to start")
 			  (thread-sleep! 4)))
 		    (if (< trycount 10)