diff --git a/r.scripts/sc-TissueMapper_RUN.Pd.R b/r.scripts/sc-TissueMapper_RUN.Pd.R
index 2b76a12cf783845896c1e4cf532c3380aea995b6..7772609db250c04cfb7c6511a9d7f3b344563a11 100644
--- a/r.scripts/sc-TissueMapper_RUN.Pd.R
+++ b/r.scripts/sc-TissueMapper_RUN.Pd.R
@@ -312,7 +312,7 @@ names(gene.set1) <- "Leu"
 gene.set <- c(gene.set,gene.set1)
 rm(gene.set1)
 gc()
-min.st <- min(table(sc10x.Epi@meta.data[,paste0("res",opt$res.poststress)]))
+min.st <- min(table(sc10x.St@meta.data[,paste0("res",opt$res.poststress)]))
 results <- scQuSAGE(sc10x.St,gs=gene.set,res.use=0.2,ds=min.st,nm="St.go",folder="st")
 sc10x.St <- results[[1]]
 results.cor.St.go <- results[[2]]