diff --git a/R/pareto_smooth.R b/R/pareto_smooth.R
index 61e3705..61baf1f 100644
--- a/R/pareto_smooth.R
+++ b/R/pareto_smooth.R
@@ -639,7 +639,7 @@ ps_convergence_rate <- function(k, ndraws, ...) {
 #' @return tail length
 #' @export
 ps_tail_length <- function(ndraws, r_eff, ...) {
-  ifelse(ndraws > 225, ceiling(3 * sqrt(ndraws / r_eff)), ndraws / 5)
+  ceiling(ifelse(ndraws > 225, 3 * sqrt(ndraws / r_eff), ndraws / 5))
 }
 
 #' Pareto-k diagnostic message