diff --git a/R/answerTests.R b/R/answerTests.R
index 7fff734..583dbc9 100644
--- a/R/answerTests.R
+++ b/R/answerTests.R
@@ -351,7 +351,7 @@ runTest.expr_identical <- function(keyphrase, e){
   return(results$passed)
 }
 
-# Test the the length of e$val is that given in the keyphrase
+# Test the length of e$val is that given in the keyphrase
 # keyphrase: "val_length=<integer>"
 runTest.val_length <- function(keyphrase, e){
   try(n <- as.integer(rightside(keyphrase)), silent=TRUE)
diff --git a/R/answerTests2.R b/R/answerTests2.R
index 75b01a5..504a49d 100644
--- a/R/answerTests2.R
+++ b/R/answerTests2.R
@@ -427,7 +427,7 @@ expr_creates_var <- function(correctName=NULL){
 
 #' Test that the value of the expression has a particular \code{length}.
 #' 
-#' Test the the \code{\link{length}} of \code{e$val} is that given by the 
+#' Test the \code{\link{length}} of \code{e$val} is that given by the 
 #' first argument.
 #' @param len expected length of the variable created by a user
 #' @return \code{TRUE} or \code{FALSE}
diff --git a/man/val_has_length.Rd b/man/val_has_length.Rd
index 9c0f414..bf0d132 100644
--- a/man/val_has_length.Rd
+++ b/man/val_has_length.Rd
@@ -13,7 +13,7 @@ val_has_length(len)
 \code{TRUE} or \code{FALSE}
 }
 \description{
-Test the the \code{\link{length}} of \code{e$val} is that given by the
+Test the \code{\link{length}} of \code{e$val} is that given by the
 first argument.
 }
 \examples{