diff --git a/RClean4.R b/RClean4.R
index ac84b23..cfa5392 100644
--- a/RClean4.R
+++ b/RClean4.R
@@ -172,7 +172,7 @@ genena <- file.choose()
 soft <- strsplit(genena,"[\\|/]") %>%
 	.[[1]] %>%
 	.[length(.)] %>%
-	grepl("soft",.)
+	grepl("soft|annot",.)
 
 #Working with the wordy part of the document
 alzword <- alz %>%