diff --git a/RAutoClDs.R b/RAutoClDs.R
index 8d051ab..ac5e077 100644
--- a/RAutoClDs.R
+++ b/RAutoClDs.R
@@ -176,13 +176,13 @@ THEFT <- function(){
 	#gsub("wd",wd,"Do you want to clean all data files in the directory wd?")
 	numDAT <- switch(EXPR = menu(choices = c("Yes","No"),title = gsub("wd",wd,"Do you want to clean all data files in the directory wd?")) + 1,cat("Nothing done\n"),1L,2L)
 	GSEfileloc <- grep("^GSE.+\\.txt\\.gz$",list.files())
-	
+	GSEfloc <- list.files()[GSEfileloc]
 	#ALL DATA FILES WILL BE CLEANED
 	if(numDAT == 1){
 		#indexing the data files
 		n <- 1	
-		for(n in 1: length(GSEfileloc)){
-			alz <- list.files()[GSEfileloc[n]]
+		for(n in 1: length(GSEfloc)){
+			alz <- GSEfloc[n]
 			
 			#Working with the wordy part of the document
 			alzword <- alz %>%