@@ -1135,12 +1135,21 @@
      
      (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*))
+     	  (let* ((servers (rmt:get-servers-info *remotedat* *toppath*))
      		 (fmtstr  "~8a~22a~20a~20a~8a\n"))
+	    ;; id INTEGER PRIMARY KEY,
+	    ;; host TEXT,
+	    ;; port INTEGER,
+	    ;; servkey TEXT,
+	    ;; pid TEXT,
+	    ;; ipaddr TEXT,
+	    ;; apath TEXT,
+	    ;; dbname TEXT,
+	    ;; event_time 
      	    (format #t fmtstr "pid" "Interface: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)))