diff --git a/R/read-samplesheet.r b/R/read-samplesheet.r
index 9683c4c..9a0dd01 100644
--- a/R/read-samplesheet.r
+++ b/R/read-samplesheet.r
@@ -129,7 +129,7 @@ meffil.read.samplesheet <- function(base, pattern = "csv$", ignore.case = TRUE,
 	{
 		names(df)[nam] <- "Sex"
 		if (is.logical(df[[nam]]))
-		  df[[nam]] <- substring(as.character(df[[name]]), 1, 1)
+		  df[[nam]] <- substring(as.character(df[[nam]]), 1, 1)
 	} else {
 		warning("There should be one 'Sex' column")
                 df$Sex <- NA