Party extract BinaryTree from cforest?

I found an internal workaround to this to support printing and plot type simple,

tt<-party:::prettytree(cf at ensemble[[1]], names(cf at data at get("input")))

npt <- new("BinaryTree")
npt at tree<-tt
plot(npt)

Error in terminal_panel(<S4 object of class "BinaryTree">) :
  ?ctreeobj? is not a regression tree

plot(npt, type="simple")

Any additional help is appreciated.