Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -2818,15 +2818,16 @@
      (lambda (run-id)
        (let ((testrecs (db:get-all-tests-info-by-run-id mtdb run-id)))
 	 (db:prep-megatest.db-adj-test-ids (db:dbdat-get-db mtdb) run-id testrecs)))
      run-ids)))
 
-;; Get test data using test_id
+;; Get test data using test_id, run-id is not used
+;; 
 (define (db:get-test-info-by-id dbstruct run-id test-id)
   (db:with-db
    dbstruct
-   run-id
+   #f ;; run-id
    #f
    (lambda (db)
      (let ((res #f))
        (sqlite3:for-each-row ;; attemptnum added to hold pid of top process (not Megatest) controlling a test
 	(lambda (id run-id testname state status event-time host cpuload diskfree uname rundir-id item-path run_duration final-logf-id comment short-dir-id attemptnum archived)

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -1,6 +1,6 @@
-;; Copyright 2006-2012, Matthew Welland.
+;; Copyright 2006-2017, Matthew Welland.
 ;; 
 ;;  This program is made available under the GNU GPL version 2.0 or
 ;;  greater. See the accompanying file COPYING for details.
 ;; 
 ;;  This program is distributed WITHOUT ANY WARRANTY; without even the
@@ -165,12 +165,15 @@
   -ping run-id|host:port  : ping server, exit with 0 if found
   -debug N|N,M,O...       : enable debug 0-N or N and M and O ...
 
 Utilities
   -env2file fname         : write the environment to fname.csh and fname.sh
-  -envcap fname=context   : save current variables labeled as context in file fname
-  -refdb2dat refdb        : convert refdb to sexp or to format specified by -dumpmode
+  -envcap a               : save current variables labeled as context 'a' in file envdat.db
+  -envdelta a-b           : output enviroment delta from context a to context b to -o fname
+                            set the output mode with -dumpmode csh, bash or ini
+                            note: ini format will use calls to use curr and minimize path
+  -refdb2dat refdb        : convert refdb to sexp or to format specified by s-dumpmode
                             formats: perl, ruby, sqlite3, csv (for csv the -o param
                             will substitute %s for the sheet name in generating 
                             multiple sheets)
   -o                      : output file for refdb2dat (defaults to stdout)
   -archive cmd            : archive runs specified by selectors to one of disks specified
@@ -801,11 +804,11 @@
 ;;======================================================================
 
 (if (args:get-arg "-list-targets")
     (if (launch:setup)
         (let ((targets (common:get-runconfig-targets)))
-          (debug:print 1 *default-log-port* "Found "(length targets) " targets")
+          ;; (debug:print 1 *default-log-port* "Found "(length targets) " targets")
           (case (string->symbol (or (args:get-arg "-dumpmode") "alist"))
             ((alist)
              (for-each (lambda (x)
                          ;; (print "[" x "]"))
                          (print x))

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -183,11 +183,14 @@
 	  (if (null? server-logs)
 	      '()
 	      (let loop ((hed  (car server-logs))
 			 (tal  (cdr server-logs))
 			 (res '()))
-		(let* ((mod-time  (file-modification-time hed))
+		(let* ((mod-time  (handle-exceptions
+                                   exn
+                                   0
+                                   (file-modification-time hed))) ;; default to *very* old so log gets ignored if deleted
 		       (down-time (- (current-seconds) mod-time))
 		       (serv-dat  (if (or (< num-serv-logs 10)
 				  	  (< down-time day-seconds))
 				     (server:logf-get-start-info hed)
 				     '())) ;; don't waste time processing server files not touched in the past day if there are more than ten servers to look at
@@ -394,9 +397,9 @@
   (let ((tmo (configf:lookup  *configdat* "server" "timeout")))
     (if (and (string? tmo)
 	     (string->number tmo))
 	(* 60 60 (string->number tmo))
 	;; (* 3 24 60 60) ;; default to three days
-	(* 60 1)         ;; default to one minute
+	(* 60 60 1)         ;; default to one hour
 	;; (* 60 60 25)      ;; default to 25 hours
 	)))