diff --git a/R/make-handlers.R b/R/make-handlers.R
index b05bd93..d64caff 100644
--- a/R/make-handlers.R
+++ b/R/make-handlers.R
@@ -256,7 +256,7 @@ extract_display_string <- function(cond, cond_name = NA, include_call = T) {
 #' @seealso the [beep] special term, which will play the default beep; [user_exit()] and [exit_with()] for parallel functions for the [exit] special term, and [user_display()] and [display_with()] for parallel functions for the [display] special term.
 #' @export
 beep_with <- function(beepr_sound) {
-  force(beepr_sound)
+  beepr_sound # forcing it
   if (!is_installed("beepr"))
     abort("Package `beepr` needs to be installed if `beep` is to be used.")
   else
diff --git a/tests/testthat/test-testing.R b/tests/testthat/test-testing.R
index 435a28b..9173eba 100644
--- a/tests/testthat/test-testing.R
+++ b/tests/testthat/test-testing.R
@@ -429,7 +429,7 @@ test_that("Testing basic compiled plan printing", {
     test_plans <- make_plans(
       warning,
       error=c("muffle"),
-      message=list(beep, function(x) {print(paste0(x, "THIS IS A VERY LONG STRING AND I THINK IT WILL GET CUT OFF")); stop(x)}),
+      message=list(display, function(x) {print(paste0(x, "THIS IS A VERY LONG STRING AND I THINK IT WILL GET CUT OFF")); stop(x)}),
       .opts = catchr_opts(
         default_plan = c(display, muffle),
         warn_about_terms = FALSE,