fix to.genus.tree function