@@ -30,10 +30,10 @@
 (define-inline (test:get-state vec)    (vector-ref vec 3))
 (define-inline (test:get-status vec)   (vector-ref vec 4))
 (define-inline (test:get-item-path vec)(vector-ref vec 5))
 
 (define-inline (test:test-get-fullname test)
-   (conc (db:test-testname test)
-	 (if (equal? (db:test-item-path test) "")
+   (conc (dbr:test-testname test)
+	 (if (equal? (dbr:test-item-path test) "")
 	     ""
-	     (conc "(" (db:test-item-path test) ")"))))
+	     (conc "(" (dbr:test-item-path test) ")"))))