Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -2146,11 +2146,11 @@
 ;; Misc. test related queries
 ;;======================================================================
 
 (define (db:get-run-ids-matching-target dbstruct keynames target res runname testpatt statepatt statuspatt)
   (let* ((dbdat    (db:get-db dbstruct #f))
-	 (db       (db:dbdat-get dbdat))
+	 (db       (db:dbdat-get-db dbdat))
 	 (row-ids '())
 	 (keystr (string-intersperse 
 		  (map (lambda (key val)
 			 (conc key " like '" val "'"))
 		       keynames