diff --git a/DESCRIPTION b/DESCRIPTION
index 01000870..d469c286 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: orderly2
 Title: Orderly Next Generation
-Version: 1.99.28
+Version: 1.99.29
 Authors@R: c(person("Rich", "FitzJohn", role = c("aut", "cre"),
                     email = "rich.fitzjohn@gmail.com"),
              person("Robert", "Ashton", role = "aut"),
diff --git a/tests/testthat/test-outpack-root.R b/tests/testthat/test-outpack-root.R
index 5270c02f..0352aea9 100644
--- a/tests/testthat/test-outpack-root.R
+++ b/tests/testthat/test-outpack-root.R
@@ -100,7 +100,7 @@ test_that("Can work out what packets are missing", {
   for (name in c("a", "b")) {
     root[[name]] <- create_temporary_root()
   }
-  ids <- create_random_packet_chain(root$a, 3)
+  ids <- unname(create_random_packet_chain(root$a, 3))
   orderly_location_add("a", "path", list(path = root$a$path), root = root$b)
   orderly_location_pull_metadata(root = root$b)
 
@@ -118,7 +118,7 @@ test_that("Can work out what packets are missing", {
   expect_equal(root_list_unknown_packets(rev(ids_fake), root$a),
                rev(ids_fake))
 
-  ids_all <- sample(c(unname(ids), ids_fake))
+  ids_all <- sample(c(ids, ids_fake))
   expect_equal(root_list_unknown_packets(ids_all, root$a),
                setdiff(ids_all, ids))
   expect_equal(root_list_unknown_packets(ids_all, root$b),