diff --git a/R/default.R b/R/default.R
index 160b557a..0ca93201 100755
--- a/R/default.R
+++ b/R/default.R
@@ -81,7 +81,10 @@ support.dist_default <- function(x, ...) {
     c(FALSE, FALSE)
   } else {
     # Default to open limits on error
-    lim_dens <- tryCatch(density(x, lims), error = function(e) c(0,0))
+    lim_dens <- tryCatch(
+      suppressWarnings(density(x, lims)),
+      error = function(e) c(0,0)
+    )
     !near(lim_dens, 0)
   }
   new_support_region(