@@ -1146,36 +1146,29 @@
 	    ;; pid TEXT,
 	    ;; ipaddr TEXT,
 	    ;; apath TEXT,
 	    ;; dbname TEXT,
 	    ;; event_time 
-     	    (format #t fmtstr "pid" "Interface:port" "age (hms)" "Last mod" "State")
-     	    (format #t fmtstr "===" "==============" "=========" "========" "=====")
+     	    (format #t fmtstr "pid" "Interface:port" "State" "dbname" "apath")
+     	    (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))))
-     		      (url (conc (cadr server) ":" (caddr server)))
-     		      (pid (list-ref server 4))
-     		      (alv (if (number? mod)(< mod 10) #f)))
-     		 (format #t
-     			 fmtstr
-     			 pid
-     			 url
-     			 (seconds->hr-min-sec age)
-     			 (seconds->hr-min-sec mod)
-     			 (if alv "alive" "dead"))
-     		 (if (and alv
-     			  (args:get-arg "-kill-servers"))
+	       (match-let
+		(((id host port servkey pid ipaddr apath dbname event_time) server))
+     		(format #t
+     			fmtstr
+     			pid
+     			(conc host":"port)
+     			(if (server-ready? host port servkey) "Running" "Dead")
+     			dbname ;; (seconds->hr-min-sec mod)
+     			apath
+			)
+     		 (if (args:get-arg "-kill-servers")
      		     (begin
      		       (debug:print-info 0 *default-log-port* "Attempting to kill server with pid " pid " !!needs completion!!")
      		       #;(server:kill server)))))
-     	     (sort servers (lambda (a b)
-     			     (let ((ma (or (any->number (car a)) 9e9))
-     				   (mb (or (any->number (car b)) 9e9)))
-     			       (> ma mb)))))
+     	     servers)
      	    ;; (debug:print-info 1 *default-log-port* "Done with listservers")
      	    (set! *didsomething* #t)
      	    (exit))
      	  (exit))))
            ;; must do, would have to add checks to many/all calls below