Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -1,7 +1,7 @@
 ;; Always use two digit decimal
 ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00..
 
 (declare (unit megatest-version))
 
-(define megatest-version 1.5208)
+(define megatest-version 1.5209)
 

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -346,11 +346,12 @@
 
 (if (args:get-arg "-list-targets")
     (let ((targets (common:get-runconfig-targets)))
       (print "Found "(length targets) " targets")
       (for-each (lambda (x)
-		  (print "[" x "]"))
+		  ;; (print "[" x "]"))
+		  (print x))
 		targets)
       (set! *didsomething* #t)))
 
 (if (args:get-arg "-show-runconfig")
     (begin
@@ -426,11 +427,12 @@
 						       keynames) "/")))
 	       (if db-targets
 		   (if (not (hash-table-ref/default seen targetstr #f))
 		       (begin
 			 (hash-table-set! seen targetstr #t)
-			 (print "[" targetstr "]"))))
+			 ;; (print "[" targetstr "]"))))
+			 (print targetstr))))
 	       (if (not db-targets)
 		   (let* ((run-id (open-run-close db:get-value-by-header run header "id"))
 			  (tests  (open-run-close db:get-tests-for-run db run-id testpatt '() '())))
 		     (debug:print 1 "Run: " targetstr " status: " (db:get-value-by-header run header "state")
 				  " run-id: " run-id ", number tests: " (length tests))
@@ -907,11 +909,11 @@
 	   (db      (if toppath (open-db) #f)))
       (if db
 	  (begin
 	    (set! *db* db)
 	    (set! *client-non-blocking-mode* #t)
-	    ;; (server:client-setup)
+	    (server:client-setup)
 	    (import readline)
 	    (import apropos)
 	    (gnu-history-install-file-manager
 	     (string-append
 	      (or (get-environment-variable "HOME") ".") "/.megatest_history"))

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -330,10 +330,13 @@
 	      (debug:print-info 0 "No server available, attempting to start one...")
 	      ;; (set! pid (process-run exe (list "-server" "-" "-debug" (if (list? *verbosity*)
 	      ;;   							  (string-intersperse *verbosity* ",")
 	      ;;   							  (conc *verbosity*)))))
 	      (set! pid (process-fork (lambda ()
+					;; (current-input-port  (open-input-file  "/dev/null"))
+					;; (current-output-port (open-output-file "/dev/null"))
+					;; (current-error-port  (open-output-file "/dev/null"))
 					(server:launch)))) ;; should never get here ....
 	      (let loop ((count 0))
 		(let ((hostinfo (open-run-close tasks:get-best-server tasks:open-db)))
 		  (if (not hostinfo)
 		      (begin