diff --git a/01b_MesobromionCluster.R b/01b_MesobromionCluster.R
index ba3546474166410734a7f911020c717a638ad4a8..77a6cf8faedf661ad6aba37ae3e95232217593e0 100644
--- a/01b_MesobromionCluster.R
+++ b/01b_MesobromionCluster.R
@@ -128,7 +128,7 @@ Mesobromion <- function(species.path, traits.path, output, myfunction="get.corXY
         nall <- length(allcomb.t)
         }  else {
           best.split <- as.numeric(unlist(strsplit(best, "_")))
-          max.inter.t <- nround-1
+          max.inter.t <- nround-length(best.split)
           #n.traits <- ncol(traits)
           list.traits <- as.numeric(traits.sign.alone)
           list.traits <- list.traits[-which(list.traits %in% best.split)] ## list of remaining traits without best