Index: tests/unittests/basicserver.scm
==================================================================
--- tests/unittests/basicserver.scm
+++ tests/unittests/basicserver.scm
@@ -98,12 +98,11 @@
 	      (set! test-one-id test-id)
 	      test-id))
 (define test-one-rec #f)
 (test #f "test-one" (let ((test-rec (rmt:get-test-info-by-id run-id test-one-id)))
 		      (set! test-one-rec test-rec)
-		      (vector-ref test-rec 2)))
-
+		      (db:test-testname test-rec)))
 ;; With data in db
 ;;
 (print "Using runame=" runname)
 (test #f '(1)    (rmt:get-all-run-ids))
 (test #f runname (rmt:get-run-name-from-id run-id))