@@ -985,15 +985,15 @@
 
 (if (args:get-arg "-list-servers")
   (let* ((tl (launch:setup))
         (servdir (tt:get-servinfo-dir *toppath*))
         (servfiles (glob (conc servdir "/*:*.db")))
-        (fmtstr  "~10a~22a~10a~13a~25a\n")
+        (fmtstr  "~10a~22a~10a~13a~25a~8a\n")
         (dbfiles (glob (conc *toppath* "/.mtdb/*.db")))
         (ttdat (make-tt areapath: *toppath*))
      )
-     (format #t fmtstr "DB" "host:port" "PID" "age (hms)" "Last mod")
+     (format #t fmtstr "DB" "host:port" "PID" "age (hms)" "last mod" "state")
      (for-each
         (lambda (dbfile)
           (let* (
             (dbfname (conc (pathname-file dbfile) ".db"))
             (sfiles   (tt:find-server *toppath* dbfname))
@@ -1010,12 +1010,13 @@
                          (pid (list-ref sinfo 4))
                          (host (list-ref sinfo 0))
                          (port (list-ref sinfo 1))
                          (age (seconds->time-string(- (current-seconds) (list-ref sinfo 2))))
                          (last-mod (seconds->string (list-ref sinfo 2)))
+                         (state (if (system (conc "ssh " host " ps " pid " > /dev/null")) "alive" "dead"))
                             )
-                         (format #t fmtstr db (conc host ":" port) pid age last-mod)
+                         (format #t fmtstr db (conc host ":" port) pid age last-mod state)
                        )
                      )
                      sinfos
                   )
                 )