Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -41,10 +41,11 @@
 (define *verbosity*         1)
 (define *rpc:listener*      #f) ;; if set up for server communication this will hold the tcp port
 (define *runremote*         #f) ;; if set up for server communication this will hold <host port>
 (define *last-db-access*    0)  ;; update when db is accessed via server
 (define *target*            #f) ;; cache the target here; target is keyval1/keyval2/.../keyvalN
+(define *run-info-cache* (make-hash-table)) ;; run info is stable, no need to reget
 
 (define (get-with-default val default)
   (let ((val (args:get-arg val)))
     (if val val default)))
 

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -345,26 +345,30 @@
      "SELECT COUNT(id) FROM runs WHERE runname LIKE ?;" runpatt)
     numruns))
 
 ;; use (get-value-by-header (db:get-header runinfo)(db:get-row runinfo))
 (define (db:get-run-info db run-id)
-  (let* ((res      #f)
-	 (keys      (db:get-keys db))
-	 (remfields (list "id" "runname" "state" "status" "owner" "event_time"))
-	 (header    (append (map key:get-fieldname keys)
-			    remfields))
-	 (keystr    (conc (keys->keystr keys) ","
-			  (string-intersperse remfields ","))))
-    ;; (debug:print 0 "db:get-run-info run-id: " run-id " header: " header " keystr: " keystr)
-    (sqlite3:for-each-row
-     (lambda (a . x)
-       (set! res (apply vector a x)))
-     db
-     (conc "SELECT " keystr " FROM runs WHERE id=?;")
-     run-id)
-    (vector header res)))
-
+  (if (hash-table-ref/default *run-info-cache* run-id #f)
+      (hash-table-ref *run-info-cache* run-id)
+      (let* ((res      #f)
+	     (keys      (db:get-keys db))
+	     (remfields (list "id" "runname" "state" "status" "owner" "event_time"))
+	     (header    (append (map key:get-fieldname keys)
+				remfields))
+	     (keystr    (conc (keys->keystr keys) ","
+			      (string-intersperse remfields ","))))
+	;; (debug:print 0 "db:get-run-info run-id: " run-id " header: " header " keystr: " keystr)
+	(sqlite3:for-each-row
+	 (lambda (a . x)
+	   (set! res (apply vector a x)))
+	 db
+	 (conc "SELECT " keystr " FROM runs WHERE id=?;")
+	 run-id)
+	(let ((finalres (vector header res)))
+	  (hash-table-set! *run-info-cache* run-id finalres)
+	  finalres))))
+  
 (define (db:set-comment-for-run db run-id comment)
   (sqlite3:execute db "UPDATE runs SET comment=? WHERE id=?;" comment run-id))
 
 ;; does not (obviously!) removed dependent data. 
 (define (db:delete-run db run-id)

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -439,11 +439,13 @@
 	(begin
 	  (let* ((cmd    (conc "rsync -av" (if (> *verbosity* 1) "" "q") " " test-path "/ " dfullp "/"))
 		 (status (system cmd)))
 	    (if (not (eq? status 0))
 		(debug:print 2 "ERROR: problem with running \"" cmd "\"")))
-	  (list dfullp toptest-path))
+	  (list dfullp toptest-path)
+	  ;; (list lnkpath toptest-path)
+	  )
 	(list #f #f))))
 
 ;; 1. look though disks list for disk with most space
 ;; 2. create run dir on disk, path name is meaningful
 ;; 3. create link from run dir to megatest runs area 

Index: tests/Makefile
==================================================================
--- tests/Makefile
+++ tests/Makefile
@@ -22,16 +22,16 @@
 cleanprep : ../*.scm
 	sqlite3 megatest.db "delete from metadat where var='SERVER';"
 	mkdir -p /tmp/mt_runs /tmp/mt_links
 	cd ..;make
 	@sleep 1
-	@if ps -def |awk '{print $8}'|grep megatest; then \
-	   echo WARNING: These tests will kill megatest and dashboard!; \
-	   sleep 3; \
-	   killall -9 dboard || true; \
-  	   killall -9 megatest || true; \
-	fi
+	# @if ps -def |awk '{print $8}'|grep megatest; then \
+	#    echo WARNING: These tests will kill megatest and dashboard!; \
+	#    sleep 3; \
+	#    killall -9 dboard || true; \
+  	#    killall -9 megatest || true; \
+	# fi
 	cd ../;make install
 	$(MEGATEST) -remove-runs :runname $(RUNNAME)% -target %/%/% -testpatt % -itempatt %
 	$(BINPATH)/dboard -rows 15 &
 	touch cleanprep
 

Index: tests/megatest.config
==================================================================
--- tests/megatest.config
+++ tests/megatest.config
@@ -30,11 +30,11 @@
 [env-override]
 SPECIAL_ENV_VARS overide them here - should be seen at launch and in the runs
 TESTVAR [system realpath .]
 DEADVAR [system ls]
 VARWITHDOLLAR $HOME/.zshrc
-WACKYVAR  #{system ls}
+WACKYVAR  #{system echo Running in $PWD}
 WACKYVAR2 #{get validvalues state}
 WACKYVAR3 #{getenv USER}
 WACKYVAR4 #{scheme (+ 5 6 7)}
 WACKYVAR5 #{getenv sysname}/#{getenv fsname}/#{getenv datapath}
 WACKYVAR6 #{scheme (args:get-arg "-target")}