diff --git a/r.scripts/sc-TissueMapper_RUN.Pd.R b/r.scripts/sc-TissueMapper_RUN.Pd.R
index 63b7f513bd0f32768f6d2d1f78329d928eec75fc..2b76a12cf783845896c1e4cf532c3380aea995b6 100644
--- a/r.scripts/sc-TissueMapper_RUN.Pd.R
+++ b/r.scripts/sc-TissueMapper_RUN.Pd.R
@@ -186,6 +186,7 @@ results.clust.Lin.id <- results[[3]]
 rm(results)
 rm(gene.set)
 
+sc10x <- SetAllIdent(object=sc10x,id="Lin")
 sc10x.Epi <- scSubset(sc10x,i="Lin",g="Epi")
 if (any(levels(sc10x@ident)=="Unknown")){
   sc10x.St <- scSubset(sc10x,i="Lin",g=c("St","Unknown"))