diff --git a/pkg/R/tinytest.R b/pkg/R/tinytest.R
index 207672f..24b63e2 100644
--- a/pkg/R/tinytest.R
+++ b/pkg/R/tinytest.R
@@ -1086,7 +1086,7 @@ build_install_test <- function(pkgdir="./", testdir="tinytest"
 
   pkg <- normalizePath(pkgdir, winslash="/")
 
-  pkgname <- read.dcf(file.path(pkg, "DESCRIPTION"))[1]
+  pkgname <- read.dcf(file.path(pkg, "DESCRIPTION"), fields = "Package")
 
   pattern <- gsub("\\", "\\\\", pattern, fixed=TRUE)