diff --git a/RCleanDscret.R b/RCleanDscret.R
index 6dd8cd5..9bd6f38 100644
--- a/RCleanDscret.R
+++ b/RCleanDscret.R
@@ -142,10 +142,10 @@ gcnames <- function(DiData,usecol=1){
 	i = 1
 	nwnam <- rep("0",length.out=nuruns)
 	for(i in 1:nuruns){
-		if(length(strsplit(colnames(DiData)[i],"///")[[1]]) >= usecol){
-			nwnam[i]=str_trim(strsplit(colnames(DiData)[i],"///")[[1]][usecol])
+		if(length(strsplit(colnames(DiData)[i],"///|//")[[1]]) >= usecol){
+			nwnam[i]=str_trim(strsplit(colnames(DiData)[i],"///|//")[[1]][usecol])
 		} else{
-			nwnam[i]=str_trim(strsplit(colnames(DiData)[i],"///")[[1]][1])
+			nwnam[i]=str_trim(strsplit(colnames(DiData)[i],"///|//")[[1]][1])
 		}
 		
 	}