Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -63,12 +63,10 @@
 (define *toptest-paths*     (make-hash-table)) ;; cache toptest path settings here
 (define *test-paths*        (make-hash-table)) ;; cache test-id to test run paths here
 (define *test-ids*          (make-hash-table)) ;; cache run-id, testname, and item-path => test-id
 (define *test-info*         (make-hash-table)) ;; cache the test info records, update the state, status, run_duration etc. from testdat.db
 
-(define *run-info-cache*    (make-hash-table)) ;; run info is stable, no need to reget
-
 ;; Awful. Please FIXME
 (define *env-vars-by-run-id* (make-hash-table))
 (define *current-run-name*   #f)
 
 (define (common:clear-caches)
@@ -77,11 +75,10 @@
   (set! *keyvals*            (make-hash-table))
   (set! *toptest-paths*      (make-hash-table))
   (set! *test-paths*         (make-hash-table))
   (set! *test-ids*           (make-hash-table))
   (set! *test-info*          (make-hash-table))
-  (set! *run-info-cache*     (make-hash-table))
   (set! *env-vars-by-run-id* (make-hash-table))
   (set! *test-id-cache*      (make-hash-table)))
 
 ;; Debugging stuff
 (define *verbosity*         1)

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -656,30 +656,27 @@
     (debug:print-info 11 "db:get-num-runs END " runpatt)
     numruns))
 
 ;; use (get-value-by-header (db:get-header runinfo)(db:get-row runinfo))
 (define (db:get-run-info db run-id)
-  ;;(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-info 11 "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)
-	(debug:print-info 11 "db:get-run-info run-id: " run-id " header: " header " keystr: " keystr)
-	(let ((finalres (vector header res)))
-	  ;; (hash-table-set! *run-info-cache* run-id finalres)
-	  finalres)))
+  (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-info 11 "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)
+    (debug:print-info 11 "db:get-run-info run-id: " run-id " header: " header " keystr: " keystr)
+    (let ((finalres (vector header res)))
+      finalres)))
 
 (define (db:set-comment-for-run db run-id comment)
   (debug:print-info 11 "db:set-comment-for-run START run-id: " run-id " comment: " comment)
   (sqlite3:execute db "UPDATE runs SET comment=? WHERE id=?;" comment run-id)
   (debug:print-info 11 "db:set-comment-for-run END run-id: " run-id " comment: " comment))
@@ -899,10 +896,11 @@
 (define (db:delete-tests-for-run db run-id)
   (common:clear-caches)
   (sqlite3:execute db "DELETE FROM tests WHERE run_id=?;" run-id))
 
 (define (db:delete-old-deleted-test-records db)
+  (common:clear-caches)
   (let ((targtime (- (current-seconds)(* 30 24 60 60)))) ;; one month in the past
     (sqlite3:execute db "DELETE FROM tests WHERE state='DELETED' AND event_time<?;" targtime)))
 
 ;; set tests with state currstate and status currstatus to newstate and newstatus
 ;; use currstate = #f and or currstatus = #f to apply to any state or status respectively
@@ -938,10 +936,11 @@
 		 (lambda (th)
 		   (if th (thread-join! th)))
 		 thr)))))))
 
 (define (cdb:delete-tests-in-state serverdat run-id state)
+  (common:clear-caches)
   (cdb:client-call serverdat 'delete-tests-in-state #t *default-numtries* run-id state))
 
 (define (cdb:tests-update-cpuload-diskfree serverdat test-id cpuload diskfree)
   (cdb:client-call serverdat 'update-cpuload-diskfree #t *default-numtries* cpuload diskfree test-id))
 

Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -1,7 +1,7 @@
 ;; Always use two digit decimal
 ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00..
 
 (declare (unit megatest-version))
 
-(define megatest-version 1.5428)
+(define megatest-version 1.5429)