@@ -944,13 +944,13 @@
 (if (or (args:get-arg "-list-servers")
         (args:get-arg "-kill-servers"))
     (let ((tl (launch:setup)))
       (if tl ;; all roads from here exit
 	  (let* ((servers (server:get-list *toppath*))
-		 (fmtstr  "~8a~22a~20a~20a~8a\n"))
-	    (format #t fmtstr "pid" "Interface:port" "age (hms)" "Last mod" "State")
-	    (format #t fmtstr "===" "==============" "=========" "========" "=====")
+		 (fmtstr  "~33a~22a~20a~20a~8a\n"))
+	    (format #t fmtstr "ID" "host:port" "age (hms)" "Last mod" "State")
+	    (format #t fmtstr "==" "=========" "=========" "========" "=====")
 	    (for-each ;;  ( mod-time host port start-time pid )
 	     (lambda (server)
 	       (let* ((mtm (any->number (car server)))
 		      (mod (if mtm (- (current-seconds) mtm) "unk"))
 		      (age (- (current-seconds)(or (any->number (list-ref server 3)) (current-seconds))))