diff --git a/R/lables.R b/R/lables.R
index 93e8f0c6..dbf4bd1c 100644
--- a/R/lables.R
+++ b/R/lables.R
@@ -140,14 +140,14 @@ pretty.nested_cv <- function(x, ...) {
   print(class(x))
   details <- attributes(x)
 
-  if (is_lang(details$outside)) {
+  if (is_call(details$outside)) {
     class(x) <- class(x)[!(class(x) == "nested_cv")]
     outer_label <- pretty(x)
   } else {
     outer_label <- paste0("`", deparse(details$outside), "`")
   }
 
-  inner_label <- if (is_lang(details$inside))
+  inner_label <- if (is_call(details$inside))
     pretty(x$inner_resamples[[1]])
   else
     paste0("`", deparse(details$inside), "`")
diff --git a/man/add_resample_id.Rd b/man/add_resample_id.Rd
index 89441433..faf84692 100644
--- a/man/add_resample_id.Rd
+++ b/man/add_resample_id.Rd
@@ -28,12 +28,14 @@ set.seed(363)
 car_folds <- vfold_cv(mtcars, repeats = 3)
 
 analysis(car_folds$splits[[1]]) \%>\%
-  add_resample_id(car_folds$splits[[1]])
+  add_resample_id(car_folds$splits[[1]]) \%>\%
+  head()
 
 car_bt <- bootstraps(mtcars)
 
 analysis(car_bt$splits[[1]]) \%>\%
-  add_resample_id(car_bt$splits[[1]])
+  add_resample_id(car_bt$splits[[1]]) \%>\%
+  head()
 }
 \seealso{
 labels.rsplit