diff --git a/R/server.R b/R/server.R
index ac432318f..597f17e71 100644
--- a/R/server.R
+++ b/R/server.R
@@ -849,7 +849,7 @@ runGadget <- function(app, server = NULL, port = getOption("shiny.port"),
   if (isTRUE(stopOnCancel)) {
     app <- decorateServerFunc(app, function(input, output, session) {
       observeEvent(input$cancel, {
-        stopApp(stop("User cancel"))
+        stopApp(stop("User cancel", call. = FALSE))
       })
     })
   }