@@ -31,21 +31,26 @@
 (include "common_records.scm")
 (include "key_records.scm")
 (include "db_records.scm")
 (include "megatest-fossil-hash.scm")
 
-(use trace)
-(trace
- thread-sleep!
+;; (use trace)
+;; (trace
+;;  thread-sleep!
+;;  sqlite3:execute
+;;  sqlite3:for-each-row
+;;  open-run-close
+;;  runs:can-run-more-tests
+;;  cdb:remote-run
 ;;  nice-path
 ;;  read-config
 ;; db:teststep-set-status!
 ;; tests:test-set-status!
 ;; cdb:test-set-status-state
 ;; cdb:client-call
 ;; tests:check-waiver-eligibility
-)
+;; )
        
 
 (define help (conc "
 Megatest, documentation at http://www.kiatoa.com/fossils/megatest
   version " megatest-version "
@@ -118,10 +123,11 @@
   -setvars VAR1=val1,VAR2=val2 : Add environment variables to a run NB// these are
                                  overwritten by values set in config files.
   -server -|hostname      : start the server (reduces contention on megatest.db), use
                             - to automatically figure out hostname
   -transport http|zmq     : use http or zmq for transport (default is http) 
+  -daemonize              : fork into background and disconnect from stdin/out
   -list-servers           : list the servers 
   -repl                   : start a repl (useful for extending megatest)
   -load file.scm          : load and run file.scm
 
 Spreadsheet generation
@@ -307,11 +313,11 @@
 	      (if (or (not servers)
 		      (null? servers))
 		  (begin
 		    (debug:print 0 "INFO: Starting server as none running ...")
 		    ;; (server:launch (string->symbol (args:get-arg "-transport" "http"))))
-		    (system (conc (car (argv)) " -server - -transport " (args:get-arg "-transport" "http")))
+		    (system (conc (car (argv)) " -server - -daemonize -transport " (args:get-arg "-transport" "http")))
 		    (thread-sleep! 3)) ;; give the server a few seconds to start
 		  (debug:print 0 "INFO: Servers already running " servers)
 		  )))))