@@ -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