diff --git a/RMatchGenes.R b/RMatchGenes.R
index c202fb8..90d6a5c 100644
--- a/RMatchGenes.R
+++ b/RMatchGenes.R
@@ -28,7 +28,7 @@ Check2Match <- function(){
 		    eddnocd <- edd[-(1:numrows[2]),]
         
 		    ##Fully matched both data sets
-		    eddy <- inner_join(ednocd,eddnocd)
+		    eddy <- inner_join(ednocd,eddnocd,by = "ID_REF")
 		    #Matches		
 		    meds <- eddy[,1]
 		
@@ -39,7 +39,7 @@ Check2Match <- function(){
 		    	read_delim(.,delim = "\t")	
 		    eddnocd <- edd[-(1:numrows[i + 1]),]
 		    ##Fully matched both data sets
-		    eddy <- inner_join(meds,eddnocd)
+		    eddy <- inner_join(meds,eddnocd,by = "ID_REF")
 		    meds <- eddy[,1]
 	
 		
@@ -52,7 +52,7 @@ Check2Match <- function(){
     		read_delim(.,delim = "\t")
     	ednocd <- ed[-(1:numrows[j]),]
     	#use meds to match
-    	eddy <- inner_join(meds,ednocd)
+    	eddy <- inner_join(meds,ednocd,by = "ID_REF")
     	Finedm <- rbind(ed[1:numrows[j],],eddy)
     	nam_fil_ed <- strsplit(edfile,"[\\|/]") %>%
     		.[[1]] %>%