diff --git a/R/CDORemapper.R b/R/CDORemapper.R
index 7d4620f7ac83d30a2697c4351a8f61299bcdaca9..135a8cbd92807bdb391e78ff4625163202eb38b2 100644
--- a/R/CDORemapper.R
+++ b/R/CDORemapper.R
@@ -111,8 +111,8 @@ CDORemapper <- function(data_array, variables, file_selectors = NULL,
 
     if ('crop' %in% names(extra_params)) {
       .warning("Argument 'crop' in 'transform_params' for CDORemapper() is ",
-               "deprecated. It is automatically assigned as the selected .",
-               "domain in Start() call.")
+               "deprecated. It is automatically assigned as the selected domain ",
+               "in Start() call.")
     }
     extra_params[['crop']] <- crop_values
   }
diff --git a/R/Start.R b/R/Start.R
index d3a2b69ed7f3e89343ea1cb352de9b1cc9a158c8..dc5b1706d49be2c2d3de2cf114bdc2daeadffcfa 100644
--- a/R/Start.R
+++ b/R/Start.R
@@ -3433,7 +3433,7 @@ Start <- function(..., # dim = indices/selectors,
                   if (type_of_var_to_crop == 'transformed') {
                     if (!aiat) {
                       if (!(length(selector_array) == 1 &
-                            selector_array %in% c('all', 'first', 'last'))) {
+                            all(selector_array %in% c('all', 'first', 'last')))) {
                         vars_to_crop[[var_to_crop]] <- Subset(transformed_subset_var, inner_dim, crop_indices)
                       } else {
                         vars_to_crop[[var_to_crop]] <-
@@ -3454,7 +3454,7 @@ Start <- function(..., # dim = indices/selectors,
 
                   if (type_of_var_to_crop == 'transformed' & !aiat) {
                     if (!(length(selector_array) == 1 &
-                            selector_array %in% c('all', 'first', 'last'))) {
+                          all(selector_array %in% c('all', 'first', 'last')))) {
                       common_vars_to_crop[[common_var_to_crop]] <- 
                         Subset(transformed_subset_var, inner_dim, crop_indices)
                     } else {