diff --git a/R/Start.R b/R/Start.R
index 21def4423e2ae62aecd737440d38e566e1e73037..bd7696496fb87a516432d193f2430d7b62008ac0 100644
--- a/R/Start.R
+++ b/R/Start.R
@@ -14,7 +14,7 @@ Start <- function(..., # dim = indices/selectors,
                   transform = NULL, 
                   transform_params = NULL, 
                   transform_vars = NULL, 
-                  transform_extra_cells = 0, 
+                  transform_extra_cells = 2, 
                   apply_indices_after_transform = FALSE, 
                   pattern_dims = NULL,
                   metadata_dims = NULL, 
@@ -2033,9 +2033,17 @@ print("-> SELECTORS REQUESTED BEFORE TRANSFORM.")
                       }
                       first_index <- min(unlist(sub_array_of_indices))
                       last_index <- max(unlist(sub_array_of_indices))
-                      start_padding <- min(beta, first_index - 1)
-                      end_padding <- min(beta, n - last_index)
-                      sub_array_of_fri <- (first_index - start_padding):(last_index + end_padding)
+                      if (first_index - beta <= 0 | last_index + beta > n) {
+                        sub_array_of_fri <- 1:n
+                        .warning(paste0("Adding the parameter transform_extra_cells =  ", 
+                                        transform_extra_cells, " to the transformed index excesses "
+                                        "the border. Use the whole index instead."))
+                      } else {
+                        sub_array_of_fri <- (first_index - beta):(last_index + beta)
+                      }
+                      #start_padding <- min(beta, first_index - 1)
+                      #end_padding <- min(beta, n - last_index)
+                      #sub_array_of_fri <- (first_index - start_padding):(last_index + end_padding)
                     }
                     subset_vars_to_transform <- vars_to_transform
                     if (!is.null(var_ordered)) {