I am not sure if I understood the question right.....
# $labels gives orginal ordering form matrix
TissueClust$labels
# $order gives the permutation of the original observations
# see ?hclust detail section
TissueClust$order
# not sure, but are you looking for this?
TissueClust$labels[c(TissueClust$order)]
hth