Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -566,12 +566,12 @@
     (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)
+  ;;(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))
@@ -584,12 +584,12 @@
 	 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))))
+	  ;; (hash-table-set! *run-info-cache* run-id finalres)
+	  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))
@@ -1216,11 +1216,11 @@
        (set! logf final_logf)
        (set! res (list path final_logf))
        (if (directory? path)
 	   (print "Found path: " path)
 	   (print "No such path: " path)))
-     db 
+     db
      "SELECT rundir,final_logf FROM tests WHERE run_id=? AND testname=? AND item_path='';"
      run-id test-name)
     res))
 
 (define db:queries 

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.5202)
+(define megatest-version 1.5206)