@@ -704,11 +704,11 @@
 				     #:numlin-visible 5
 				     ))
 	 (colnames       (list "Id" "MTver" "Pid" "Host" "Interface:OutPort" "RunTime" "State" "RunId"))
 	 (updater        (lambda ()
 			   (if (dashboard:monitor-changed? commondat tabdat)
-			       (let ((servers  (server:get-list *toppath* limit: 10)))
+			       (let ((servers  (server:choose-server *toppath* 'all-valid))) ;; (server:get-list *toppath* limit: 10)))
 				 (iup:attribute-set! servers-matrix "NUMLIN" (length servers))
 				 ;; (set! colnum 0)
 				 ;; (for-each (lambda (colname)
 				 ;;    	 ;; (print "colnum: " colnum " colname: " colname)
 				 ;;    	 (iup:attribute-set! servers-matrix (conc "0:" colnum) colname)
@@ -716,26 +716,27 @@
 				 ;;           colnames)
 				 (set! rownum 1)
 				 (for-each 
 				  (lambda (server)
 				    (set! colnum 0)
-				    (match-let (((mod-time host port start-time server-id pid)
+				    ;; (("192.168.0.127" 60215 1669088591.0 "c85484f764df7a8550b0224409bd4bcd")
+				    (match-let (((host port start-time server-id pid)
 						 server))
-				      (let* ((uptime  (- (current-seconds) mod-time))
+				      (let* (;; (uptime  (- (current-seconds) mod-time))
 					     (runtime (if start-time
-							  (- mod-time start-time)
+							  (- (current-seconds) start-time)
 							  0))
 					     (vals (list "-"  ;; (vector-ref server 0) ;; Id
 							 "-"  ;; (vector-ref server 9) ;; MT-Ver
 							 pid  ;; (vector-ref server 1) ;; Pid
 							 host ;; (vector-ref server 2) ;; Hostname
 							 (conc host ":" port) ;; (conc (vector-ref server 3) ":" (vector-ref server 4)) ;; IP:Port
 							 (seconds->hr-min-sec runtime) ;; (- (current-seconds) start-time)) ;; (vector-ref server 6)))
-							 (cond
-							  ((< uptime 5)  "alive")
-							  ((< uptime 16) "probably alive");; less than 15 seconds since mod, call it alive (vector-ref server 8) ;; State
-							  (else "dead"))
+							 "-" #;(cond
+							       ((< uptime 5)  "alive")
+							       ((< uptime 16) "probably alive");; less than 15 seconds since mod, call it alive (vector-ref server 8) ;; State
+						 	       (else "dead"))
 							 "-" ;; (vector-ref server 12)  ;; RunId
 							 )))
 					(for-each (lambda (val)
 						    (let* ((row-col (conc rownum ":" colnum))
 							   (curr-val (iup:attribute servers-matrix row-col)))
@@ -745,11 +746,11 @@
 							    (iup:attribute-set! servers-matrix "FITTOTEXT" (conc "C" colnum))))
 						      (set! colnum (+ 1 colnum))))
 						  vals)
 					(set! rownum (+ rownum 1)))
 				      (iup:attribute-set! servers-matrix "REDRAW" "ALL")))
-				    (sort servers (lambda (a b)(> (car a)(car b))))))))))
+				    (sort servers (lambda (a b)(> (caddr a)(caddr b))))))))))
     (set! colnum 0)
     (for-each (lambda (colname)
 		(iup:attribute-set! servers-matrix (conc "0:" colnum) colname)
 		(iup:attribute-set! servers-matrix "FITTOTEXT" (conc "C" colnum))
 		(set! colnum (+ colnum 1)))