final update for ape 2.7-1

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

diff --git a/R/as.phylo.R b/R/as.phylo.R
index 8ebd54049fa1b9693a48bd034a8203a71aaaa633..5d541bce67f3de75f947ba59caa0ea256921e4eb 100644 (file)
--- a/R/as.phylo.R
+++ b/R/as.phylo.R
@@ -1,4 +1,4 @@
-## as.phylo.R (2011-03-16)
+## as.phylo.R (2011-03-25)
 
 ##     Conversion Among Tree Objects
 
@@ -29,7 +29,8 @@ new2old.phylo <- function(phy)
 
 as.phylo <- function (x, ...)
 {
-    if (class(x) == "phylo") return(x)
+    if (length(class(x)) == 1 && class(x) == "phylo")
+        return(x)
     UseMethod("as.phylo")
 }