diff --git a/RClean4.R b/RClean4.R
index b646312..ac84b23 100644
--- a/RClean4.R
+++ b/RClean4.R
@@ -248,6 +248,7 @@ if(clfileex == 0){
 				idLOCGPL <- genena %>%
 					read_delim(delim="\t",col_names = FALSE, comment = "!", n_max = 1000) %>%
 					t(.) %>%
+					.[1,] %>%
 					grep("^ID\\s*$",.) %>%
 					-1
 				cbind(as.integer(gplnum),as.integer(idLOCGPL)) %>%
@@ -262,6 +263,7 @@ if(clfileex == 0){
 			idLOCGPL <- genena %>%
 				read_delim(delim="\t",col_names = FALSE, comment = "!", n_max = 1000) %>%
 				t(.) %>%
+				.[1,] %>%
 				grep("^ID\\s*$",.) %>%
 				-1
 			Firstval <- cbind(as.integer(gplnum),as.integer(idLOCGPL))