@@ -285,11 +285,23 @@
 ;;======================================================================
 
 (if (args:get-arg "-server")
     (begin
       (debug:print 2 "Launching server...")
-      (server:launch)))
+      ;; (change-directory "/")
+      (let ((fd-r (file-open "/dev/null" open/rdonly))
+	    (fd-w (file-open "/dev/null" open/wronly)))
+	(duplicate-fileno fd-r 0)
+	(duplicate-fileno fd-w 1)
+	(file-close fd-r)
+	(file-close fd-w))
+      (let ((child-pid (process-fork (lambda ()(server:launch)))))
+	(if (not (zero? child-pid))
+	    (exit 0)))
+      (create-session)
+      (duplicate-fileno 1 2)
+      (void)))
 
 (if (args:get-arg "-list-servers")
 	;; (args:get-arg "-kill-server"))
     (let ((tl (setup-for-run)))
       (if tl