diff --git a/RAutoClDs.R b/RAutoClDs.R
index 49ea334..0ae7af1 100644
--- a/RAutoClDs.R
+++ b/RAutoClDs.R
@@ -190,7 +190,7 @@ THEFT <- function(){
 			genena <- grep("_platform_id",alzword$X1) %>%
 				alzword$X2[.] %>%
 				str_trim(.) %>%
-				paste0("^",.) %>%
+				paste0("^",.,"\\D") %>%
 				grep(.,list.files()) %>%
 				list.files()[.]
 			 
@@ -479,7 +479,7 @@ THEFT <- function(){
 				genena <- grep("_platform_id",alzword$X1) %>%
 					alzword$X2[.] %>%
 					str_trim(.) %>%
-					paste0("^",.) %>%
+					paste0("^",.,"\\D") %>%
 					grep(.,list.files()) %>%
 					list.files()[.]