diff --git a/DESCRIPTION b/DESCRIPTION
index 4ebb3ca7..e97e91c6 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: report
 Type: Package
 Title: Automated Reporting of Results and Statistical Models
-Version: 0.5.8.4
+Version: 0.5.8.5
 Authors@R:
     c(person(given = "Dominique",
              family = "Makowski",
diff --git a/R/report_htest_friedman.R b/R/report_htest_friedman.R
index fc20067d..9ee45b3d 100644
--- a/R/report_htest_friedman.R
+++ b/R/report_htest_friedman.R
@@ -9,7 +9,7 @@
 # report_effectsize ---------------------
 
 .report_effectsize_friedman <- function(x, table, dot_args) {
-  args <- c(list(x, effectsize_type = "kendalls_w"), dot_args)
+  args <- c(list(x, es_type = "kendalls_w"), dot_args)
   table <- do.call(parameters::parameters, args)
   ci <- attributes(table)$ci
   estimate <- "kendalls_w"
diff --git a/R/report_htest_wilcox.R b/R/report_htest_wilcox.R
index 9db326de..92963eb6 100644
--- a/R/report_htest_wilcox.R
+++ b/R/report_htest_wilcox.R
@@ -9,14 +9,14 @@
 # report_effectsize ---------------------
 
 .report_effectsize_wilcox <- function(x, table, dot_args) {
-  args <- c(list(x, rank_biserial = TRUE), dot_args)
-  table <- do.call(parameters::parameters, args)
+  my_args <- c(list(x, es_type = "rank_biserial"), dot_args)
+  table <- do.call(parameters::model_parameters, my_args)
   ci <- attributes(table)$ci
   estimate <- "r_rank_biserial"
 
   # same as Pearson's r
-  args <- c(list(table$r_rank_biserial), dot_args)
-  interpretation <- do.call(effectsize::interpret_r, args)
+  my_args <- c(list(table$r_rank_biserial), dot_args)
+  interpretation <- do.call(effectsize::interpret_r, my_args)
   rules <- .text_effectsize(attr(attr(interpretation, "rules"), "rule_name"))
 
   main <- paste0("r (rank biserial) = ", insight::format_value(table$r_rank_biserial))
@@ -42,7 +42,7 @@
   if ("Parameter1" %in% names(table)) {
     vars_full <- paste0(table$Parameter1[[1]], " and ", table$Parameter2[[1]])
 
-    text <- paste0(
+    text_string <- paste0(
       trimws(x$method),
       " testing the difference in ranks between ",
       vars_full
@@ -51,7 +51,7 @@
     # one-sample
     vars_full <- paste0(table$Parameter[[1]])
 
-    text <- paste0(
+    text_string <- paste0(
       trimws(x$method),
       " testing the difference in rank for ",
       vars_full,
@@ -59,5 +59,5 @@
     )
   }
 
-  text
+  text_string
 }