diff --git a/RAutoClDs.R b/RAutoClDs.R
index c8105f1..388f352 100644
--- a/RAutoClDs.R
+++ b/RAutoClDs.R
@@ -369,7 +369,7 @@ THEFT <- function(){
 			
 			roALZna <- t(ALZDAT) %>%
 				rownames(.) %>%
-				as.data.frame(.)
+				as.data.frame(.,stringsAsFactors = FALSE)
 			colnames(roALZna) <- "ID_REF"
 			
 			RAWDAT <- t(ALZDAT) %>%
@@ -637,7 +637,7 @@ THEFT <- function(){
 				namedarows <- rownames(rawword)[-hereim] %>%
 					as.data.frame(.,stringsAsFactors = FALSE)
 				RAWWORD <- rawword[-hereim,] %>%
-					as.data.frame() %>%
+					as.data.frame(.,stringsAsFactors = FALSE) %>%
 					bind_cols(namedarows,.)
 				z <- 1
 				naroww <- as.data.frame(rep(0,dim(RAWWORD)[1]),stringsAsFactors = FALSE)