diff --git a/DESCRIPTION b/DESCRIPTION
index 8f4e7ce16..bfc44da84 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -211,7 +211,7 @@ VignetteBuilder:
     knitr
 Encoding: UTF-8
 Language: en-US
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2
 Roxygen: list(markdown = TRUE)
 Config/testthat/edition: 3
 Config/testthat/parallel: true
diff --git a/R/equivalence_test.R b/R/equivalence_test.R
index 3e23b6470..efa6c56e1 100644
--- a/R/equivalence_test.R
+++ b/R/equivalence_test.R
@@ -62,14 +62,17 @@ bayestestR::equivalence_test
 #' - "classic" - The TOST rule (Lakens 2017)
 #'
 #'   This rule follows the "TOST rule", i.e. a two one-sided test procedure
-#'   (_Lakens 2017_). Following this rule, practical equivalence of an effect
-#'   (i.e. H0) is *rejected*, when the coefficient is statistically significant
-#'   *and* the narrow confidence intervals (i.e. `1-2*alpha`) *include* or
-#'   *exceed* the ROPE boundaries. Practical equivalence is assumed
-#'   (i.e. H0 "accepted") when the narrow confidence intervals are completely
-#'   inside the ROPE, no matter if the effect is statistically significant
-#'   or not. Else, the decision whether to accept or reject practical
-#'   equivalence is undecided.
+#'   (_Lakens 2017_). Following this rule...
+#'   - practical equivalence is assumed (i.e. H0 *"accepted"*) when the narrow
+#'     confidence intervals are completely inside the ROPE, no matter if the
+#'     effect is statistically significant or not;
+#'   - practical equivalence (i.e. H0) is *rejected*, when the coefficient is
+#'     statistically significant, both when the narrow confidence intervals
+#'     (i.e. `1-2*alpha`) include or exclude the the ROPE boundaries, but the
+#'     narrow confidence intervals are *not fully covered* by the ROPE;
+#'   - else the decision whether to accept or reject practical equivalence is
+#'     undecided (i.e. when effects are *not* statistically significant *and*
+#'     the narrow confidence intervals overlaps the ROPE).
 #'
 #' - "cet" - Conditional Equivalence Testing (Campbell/Gustafson 2018)
 #'
@@ -559,20 +562,14 @@ equivalence_test.ggeffects <- function(x,
 
   if (rule == "classic") {
     final_ci <- ci_narrow
-    # significant result?
-    if (min(ci_narrow) > 0 || max(ci_narrow) < 0) {
-      # check if CI are entirely inside ROPE. If CI crosses ROPE, reject H0, else accept
-      if (all(ci_narrow < max(range_rope)) && all(ci_narrow > min(range_rope))) {
-        decision <- "Accepted"
-      } else {
-        decision <- "Rejected"
-      }
-      # non-significant results
-    } else if (all(ci_narrow < max(range_rope))) {
-      # check if CI are entirely inside ROPE. If CI crosses ROPE, reject H0, else accept
+    if (all(ci_narrow < max(range_rope)) && all(ci_narrow > min(range_rope))) {
+      # narrow CI is fully inside ROPE - always accept
       decision <- "Accepted"
-    } else {
+    } else if (min(ci_narrow) < 0 && max(ci_narrow) > 0) {
+      # non-significant results - undecided
       decision <- "Undecided"
+    } else {
+      decision <- "Accepted"
     }
   }
 
@@ -585,7 +582,7 @@ equivalence_test.ggeffects <- function(x,
     if (min(ci_wide) > 0 || max(ci_wide) < 0) {
       decision <- "Rejected"
       # non-significant results, all narrow CI inside ROPE
-    } else if (min(abs(ci_narrow)) < max(abs(range_rope)) && max(abs(ci_narrow)) < max(abs(range_rope))) {
+    } else if (all(ci_narrow < max(range_rope)) && all(ci_narrow > min(range_rope))) {
       decision <- "Accepted"
     } else {
       decision <- "Undecided"
diff --git a/man/equivalence_test.lm.Rd b/man/equivalence_test.lm.Rd
index 1d4ab94d4..f58df1735 100644
--- a/man/equivalence_test.lm.Rd
+++ b/man/equivalence_test.lm.Rd
@@ -100,14 +100,19 @@ better).
 \item "classic" - The TOST rule (Lakens 2017)
 
 This rule follows the "TOST rule", i.e. a two one-sided test procedure
-(\emph{Lakens 2017}). Following this rule, practical equivalence of an effect
-(i.e. H0) is \emph{rejected}, when the coefficient is statistically significant
-\emph{and} the narrow confidence intervals (i.e. \code{1-2*alpha}) \emph{include} or
-\emph{exceed} the ROPE boundaries. Practical equivalence is assumed
-(i.e. H0 "accepted") when the narrow confidence intervals are completely
-inside the ROPE, no matter if the effect is statistically significant
-or not. Else, the decision whether to accept or reject practical
-equivalence is undecided.
+(\emph{Lakens 2017}). Following this rule...
+\itemize{
+\item practical equivalence is assumed (i.e. H0 \emph{"accepted"}) when the narrow
+confidence intervals are completely inside the ROPE, no matter if the
+effect is statistically significant or not;
+\item practical equivalence (i.e. H0) is \emph{rejected}, when the coefficient is
+statistically significant, both when the narrow confidence intervals
+(i.e. \code{1-2*alpha}) include or exclude the the ROPE boundaries, but the
+narrow confidence intervals are \emph{not fully covered} by the ROPE;
+\item else the decision whether to accept or reject practical equivalence is
+undecided (i.e. when effects are \emph{not} statistically significant \emph{and}
+the narrow confidence intervals overlaps the ROPE).
+}
 \item "cet" - Conditional Equivalence Testing (Campbell/Gustafson 2018)
 
 The Conditional Equivalence Testing as described by \emph{Campbell and
diff --git a/tests/testthat/test-equivalence_test.R b/tests/testthat/test-equivalence_test.R
index 1dc4635e7..004069945 100644
--- a/tests/testthat/test-equivalence_test.R
+++ b/tests/testthat/test-equivalence_test.R
@@ -18,4 +18,25 @@ test_that("equivalence_test, unequal rope-range", {
   rez <- equivalence_test(m, range = c(-99, 0.1))
   expect_identical(rez$ROPE_Equivalence, c("Rejected", "Rejected", "Rejected"))
   expect_identical(rez$ROPE_low, c(-99, -99, -99))
+
+  data(mtcars)
+  mtcars[c("gear", "cyl")] <- lapply(mtcars[c("gear", "cyl")], as.factor)
+  m <- lm(mpg ~ hp + gear + cyl, data = mtcars)
+
+  rez <- equivalence_test(m, range = c(-Inf, 0.5))
+  expect_identical(
+    rez$ROPE_Equivalence,
+    c("Rejected", "Accepted", "Undecided", "Rejected", "Accepted", "Undecided")
+  )
+  rez <- equivalence_test(m, range = c(-0.5, 0.5))
+  expect_identical(
+    rez$ROPE_Equivalence,
+    c("Rejected", "Accepted", "Undecided", "Rejected", "Rejected", "Undecided")
+  )
+
+  rez <- equivalence_test(m, range = c(-2, 2))
+  expect_identical(
+    rez$ROPE_Equivalence,
+    c("Rejected", "Accepted", "Undecided", "Rejected", "Rejected", "Undecided")
+  )
 })