diff --git a/R/lueNimi.R b/R/lueNimi.R
index 7e0811d..377e791 100644
--- a/R/lueNimi.R
+++ b/R/lueNimi.R
@@ -4,6 +4,12 @@
 #' @return nimi
 #' @export
 lueNimi <- function(line) {
+	# ==========================================================================
+	# Validation
+	# ==========================================================================
+	if (!grepl(",", line)) {
+		stop("There are no commas in this line")
+	}
 	# Palauttaa line:n alusta sen osan, joka on ennen pilkkua.
 	n <- 1
 	merkki <- substring(line, n, n)