@@ -3721,25 +3721,35 @@
 	     tags)))
 	db
 	"SELECT testname,tags FROM test_meta")
        (hash-table->alist res)))))
 
+;; testmeta doesn't change, we can cache it for up too an hour
+
+(define *db:testmeta-cache* (make-hash-table))
+(define *db:testmeta-last-update* 0)
+
 ;; read the record given a testname
 (define (db:testmeta-get-record dbstruct testname)
-  (let ((res   #f))
-    (db:with-db
-     dbstruct
-     #f
-     #f
-     (lambda (dbdat db)
-       (sqlite3:for-each-row
-	(lambda (id testname author owner description reviewed iterated avg_runtime avg_disk tags jobgroup)
-	  (set! res (vector id testname author owner description reviewed iterated avg_runtime avg_disk tags jobgroup)))
-	db
-	"SELECT id,testname,author,owner,description,reviewed,iterated,avg_runtime,avg_disk,tags,jobgroup FROM test_meta WHERE testname=?;"
-	testname)
-       res))))
+  (if (and (< (- (current-seconds) *db:testmeta-last-update*) 600)
+	   (hash-table-exists? *db:testmeta-cache* testname))
+      (hash-table-ref *db:testmeta-cache* testname)
+      (let ((res   #f))
+	(db:with-db
+	 dbstruct
+	 #f
+	 #f
+	 (lambda (dbdat db)
+	   (sqlite3:for-each-row
+	    (lambda (id testname author owner description reviewed iterated avg_runtime avg_disk tags jobgroup)
+	      (set! res (vector id testname author owner description reviewed iterated avg_runtime avg_disk tags jobgroup)))
+	    db
+	    "SELECT id,testname,author,owner,description,reviewed,iterated,avg_runtime,avg_disk,tags,jobgroup FROM test_meta WHERE testname=?;"
+	    testname)))
+	(hash-table-set! *db:testmeta-cache* testname res)
+	(set! *db:testmeta-last-update* (current-seconds))
+	res)))
 
 ;; create a new record for a given testname
 (define (db:testmeta-add-record dbstruct testname)
   (db:with-db dbstruct #f #t
 	      (lambda (dbdat db)
@@ -4518,11 +4528,10 @@
 ;; 	       ;; time to exit, close the no-sync db here
 ;; 	       (db:no-sync-close-db no-sync-db stmt-cache)
 	       (if (common:low-noise-print 30)
 		   (debug:print-info 0 *default-log-port* "Exiting watchdog timer, *time-to-exit* = " *time-to-exit*" pid="(current-process-id) )))) 
 ))
-
 
 (define (std-exit-procedure)
   ;;(common:telemetry-log-close)
   (on-exit (lambda () 0)) ;; why is this here?
   ;;(debug:print-info 13 *default-log-port* "std-exit-procedure called; *time-to-exit*="*time-to-exit*)