diff --git a/RClean2.R b/RClean2.R
index cb8981d..e042964 100644
--- a/RClean2.R
+++ b/RClean2.R
@@ -104,7 +104,7 @@ cgeneID <- function(GeneName,DATA){
 	colGene <- dim(GeneName)[2]
 	j <- 1
 	for(j in 1:colGene){
-		chngsreq <- grep(GeneName[1,j],DATA[1,])
+		chngsreq <- grep(paste0("^",GeneName[1,j]),DATA[1,])
 		DATA[1,chngsreq] <- gsub(GeneName[1,j],GeneName[2,j],DATA[1,chngsreq])
 		j = j+1
 	}