diff --git a/R/R/clusters.R b/R/R/clusters.R
index 93a742c92..0b5167425 100644
--- a/R/R/clusters.R
+++ b/R/R/clusters.R
@@ -392,7 +392,7 @@ errors_scores <- function(df, balance = rep(1, 3)) {
     theme_lares()
 }
 
-.bootci <- function(samp, boot_n) {
+.bootci <- function(samp, boot_n = 1000) {
   if (length(samp) > 1) {
     samp_n <- length(samp)
     samp_mean <- mean(samp, na.rm = TRUE)
diff --git a/R/R/pareto.R b/R/R/pareto.R
index 9a7d66f9a..33c96cdf8 100644
--- a/R/R/pareto.R
+++ b/R/R/pareto.R
@@ -73,6 +73,7 @@ robyn_pareto <- function(InputCollect, OutputModels,
   # Prepare parallel loop
   if (TRUE) {
     if (check_parallel()) registerDoParallel(OutputModels$cores) else registerDoSEQ()
+    if (hyper_fixed) pareto_fronts <- 1
     # Get at least 100 candidates for better clustering
     if ("auto" %in% pareto_fronts) {
       if (nrow(resultHypParam) <= pareto_models) {