fix a few bugs + correct some the man page of sh.test()

[ape.git] / R / summary.phylo.R

diff --git a/R/summary.phylo.R b/R/summary.phylo.R
index 365f615117962de5677c73542ef19d772c1d59d5..54c2eaa51e3f30f317adadc7a135c4f8fd9b1f34 100644 (file)
--- a/R/summary.phylo.R
+++ b/R/summary.phylo.R
@@ -1,4 +1,4 @@
-## summary.phylo.R (2008-02-28)
+## summary.phylo.R (2008-04-22)
 
 ##   Print Summary of a Phylogeny
 
@@ -142,5 +142,6 @@ print.multiPhylo <- function(x, details = FALSE, ...)
 str.multiPhylo <- function(object, ...)
 {
     class(object) <- NULL
+    cat('Class "multiPhylo"\n')
     str(object, ...)
 }