@@ -380,11 +380,11 @@
 	      (thread-start! th1)
 	      (thread-start! th2)
 	      (thread-join! th2)
 	      (mutex-lock! m)
 	      (set! db (open-db))
-	      (let* ((testinfo (runs:get-test-info db run-id test-name (item-list->path itemdat))))
+	      (let* ((testinfo (db:get-test-info db run-id test-name (item-list->path itemdat))))
 		(if (not (equal? (db:test-get-state testinfo) "COMPLETED"))
 		    (begin
 		      (print "Test NOT logged as COMPLETED, (state=" (db:test-get-state testinfo) "), updating result")
 		      (test-set-status! db run-id test-name
 					(if kill-job? "KILLED" "COMPLETED")