X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fwrite.nexus.R;h=14f77341c498bfcd4a2f3bfbadffd905bdc3de2d;hb=6fe5709ee413e5a1a379918a70c64cee05e9ae54;hp=1a816f0573ff35d5b30d64e3e18c9619e775b073;hpb=507aa18c4e3f9312efcb07b90766df1158a39402;p=ape.git

diff --git a/R/write.nexus.R b/R/write.nexus.R
index 1a816f0..14f7734 100644
--- a/R/write.nexus.R
+++ b/R/write.nexus.R
@@ -1,4 +1,4 @@
-## write.nexus.R (2009-07-27)
+## write.nexus.R (2009-10-27)
 
 ##   Write Tree File in Nexus Format
 
@@ -69,9 +69,11 @@ the original data won't be written with the tree."))
         token <- as.character(1:N)
         names(token) <- obj[[1]]$tip.label
         obj[[1]]$tip.label <- token
-        if (ntree > 1)
-          for (i in 2:ntree)
-            obj[[i]]$tip.label <- token[obj[[i]]$tip.label]
+        if (ntree > 1) {
+            for (i in 2:ntree)
+                obj[[i]]$tip.label <- token[obj[[i]]$tip.label]
+            class(obj) <- NULL
+        }
     } else {
         for (i in 1:ntree)
           obj[[i]]$tip.label <- checkLabel(obj[[i]]$tip.label)