diff --git a/R/CST_Subset.R b/R/CST_Subset.R
index 372e39812329c4cc06624b37a427086d5a971cf2..bc3915e880f271062dd3b53b02d8dbf3f3c734ba 100644
--- a/R/CST_Subset.R
+++ b/R/CST_Subset.R
@@ -137,7 +137,7 @@ CST_Subset <- function(x, along, indices, drop = FALSE, var_dim = NULL,
   for (variable in 1:length(names(x$attrs$Variable$metadata))) {
     if (any(along %in% names(dim(x$attrs$Variable$metadata[[variable]])))) {
       dim_along <- along[along %in% names(dim(x$attrs$Variable$metadata[[variable]]))]
-      index_along <- indices[[which(along == dim_along)]]
+      index_along <- indices[match(dim_along, along)]
       x$attrs$Variable$metadata[[variable]] <- .subset_with_attrs(x$attrs$Variable$metadata[[variable]],
                                                                   along = dim_along,
                                                                   indices = index_along,