@@ -99,11 +99,11 @@
 (define (teststep-set-status! db run-id test-name teststep-name state-in status-in itemdat comment)
   ;; (print "run-id: " run-id " test-name: " test-name)
   (let* ((state     (check-valid-items "state" state-in))
 	 (status    (check-valid-items "status" status-in))
 	 (item-path (item-list->path itemdat))
-	 (testdat   (runs:get-test-info db run-id test-name item-path)))
+	 (testdat   (db:get-test-info db run-id test-name item-path)))
     ;; (print "testdat: " testdat)
     (if (and testdat ;; if the section exists then force specification BUG, I don't like how this works.
 	     (or (not state)(not status)))
 	(print "WARNING: Invalid " (if status "status" "state")
 	       " value \"" (if status status-in state-in) "\", update your validstates section in megatest.config"))
@@ -114,11 +114,11 @@
 			test-id teststep-name state status (if comment comment "")))
 	(print "ERROR: Can't update " test-name " for run " run-id " -> no such test in db"))))
 
 (define (test-get-kill-request db run-id test-name itemdat)
   (let* ((item-path (item-list->path itemdat))
-	 (testdat   (runs:get-test-info db run-id test-name item-path)))
+	 (testdat   (db:get-test-info db run-id test-name item-path)))
     (equal? (test:get-state testdat) "KILLREQ")))
 
 (define (test-set-meta-info db run-id testname itemdat)
   (let ((item-path (item-list->path itemdat))
 	(cpuload  (get-cpu-load))