diff --git a/R/cluster_spec.R b/R/cluster_spec.R
index 7037dd8..6fe8fa0 100644
--- a/R/cluster_spec.R
+++ b/R/cluster_spec.R
@@ -10,7 +10,12 @@
 #' @export
 #' @keywords internal
 new_cluster_spec <- function(cls, args, eng_args, mode, method, engine) {
-  modelenv::check_spec_mode_engine_val(model = cls, mode = mode, eng = engine)
+  modelenv::check_spec_mode_engine_val(
+    model = cls, 
+    mode = mode,
+    eng = engine,
+    call = rlang::caller_env()
+  )
 
   out <- list(
     args = args, eng_args = eng_args,