diff --git a/R/readdesign.R b/R/readdesign.R
index 42804a620a5cb252c1e649723577ab1c08c7c49f..0545dc4e3d0b7e2582c35f8f454d6adc8b58d809 100644
--- a/R/readdesign.R
+++ b/R/readdesign.R
@@ -75,10 +75,10 @@ as.data.frame(designf)
         # Extract alt as the alternative identifier
         alt = sub(".*\\.", "", row_id)
       ) %>%
-      dplyr::select(-row_id) %>% # Drop the original row_id
+      dplyr::select(-"row_id") %>% # Drop the original row_id
       tidyr::pivot_wider(
         id_cols = "Choice.situation",          # Group by Choice.situation
-        names_from = alt,                # Use alt to create column suffixes
+        names_from = "alt",                # Use alt to create column suffixes
         values_from = -c("Choice.situation", "alt"), # Values from other columns
         names_glue = "{alt}.{.value}"          # Custom naming convention
       )
diff --git a/tests/testthat/test-readdesign.R b/tests/testthat/test-readdesign.R
index d1bd5043b896b2a3b989ba754408518999179afb..8c6734baebb64b78581217ce06197d1e1a6fbc95 100644
--- a/tests/testthat/test-readdesign.R
+++ b/tests/testthat/test-readdesign.R
@@ -84,3 +84,17 @@ design_path <- system.file("extdata","ValuGaps", "des1.RDS" ,package = "simulate
 test_that("all is correct with full spdesign objects", {
   expect_no_error(readdesign(design = design_path, designtype = "spdesign"))
 })
+
+
+
+### Tests for idefix
+
+design_idefix <- system.file("extdata","Idefix_designs", "test_design2.RDS" ,package = "simulateDCE")
+
+
+
+test_that("all is correct with full idefix objects", {
+  expect_no_error(readdesign(design_idefix, designtype = "idefix"))
+})
+
+