diff --git a/RClean4.R b/RClean4.R
index a927f51..5f5672d 100644
--- a/RClean4.R
+++ b/RClean4.R
@@ -277,7 +277,7 @@ if(clfileex == 0){
 	if(soft == FALSE){
 		geneIDNam <- genena %>%
 		read_delim(delim="\t",comment = "#")%>%
-		dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$",colnames(.))
+		dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$",colnames(.)))
 	}
 
 	##Labeling the gene IDs without names