diff --git a/R/extract_param.R b/R/extract_param.R
index 16f9857af..54ca082d5 100644
--- a/R/extract_param.R
+++ b/R/extract_param.R
@@ -238,7 +238,8 @@ extract_param <- function(type = c("percentiles", "range"),
     method = "L-BFGS-B",
     val = values_in,
     dist = distribution,
-    lower = lower
+    lower = lower,
+    upper = upper
   ), error = function(e) {
     stop("found inf value in ", distribution)
   })