diff --git a/sources/tools/models.R b/sources/tools/models.R
index f967f30c0..775d5ed40 100644
--- a/sources/tools/models.R
+++ b/sources/tools/models.R
@@ -437,7 +437,7 @@ ve.model.index <- function() {
     # (each row is a "case" in stat lingo, and the "complete" ones have a non-NA value for each
     # column)
     # message("Adding inputs to Inputs data.frame")
-    ccases <- complete.cases(GroupTableName)
+    ccases <- complete.cases(GroupTableName[,c("Group","Table","Name")])
     GroupTableName <- GroupTableName[ccases,]
     # message("Length of complete.cases:",nrow(GroupTableName))
     Index <- rbind(Index,GroupTableName)