From 66872776a858b143275ef4644298652a14f7d028 Mon Sep 17 00:00:00 2001
From: Klaus Schliep <klaus.schliep@gmail.com>
Date: Wed, 31 Jan 2024 16:56:49 +0100
Subject: [PATCH] bugfix

---
 R/treedist.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/treedist.R b/R/treedist.R
index 4097e4df..c394fd92 100644
--- a/R/treedist.R
+++ b/R/treedist.R
@@ -704,7 +704,7 @@ kf0 <- function(tree1, tree2, check.labels = TRUE, rooted = FALSE) {
   }
 
   bp1 <- fun2(tree1, rooted)
-  bp2 <- fun2(tree1, rooted)
+  bp2 <- fun2(tree2, rooted)
 
   w1 <- numeric(max(tree1$edge))
   w2 <- numeric(max(tree2$edge))