diff --git a/R/NcToArray.R b/R/NcToArray.R
index e07315cdebbbba610fa7facf19f199ed2a8ecce3..45c32891db8176230fc4939b71feaa3a87ad5c2d 100644
--- a/R/NcToArray.R
+++ b/R/NcToArray.R
@@ -220,8 +220,10 @@ NcToArray <- function(file_to_read, dim_indices = NULL, vars_to_read = NULL,
             ## TODO: Crop dimensions in attributes
             if (!is.null(reorder_back)) {
               var_result <- aperm(var_result, reorder_back)
+              names(dim(var_result)) <- names(indices_to_take)[reorder_back]
+            } else {
+              names(dim(var_result)) <- names(indices_to_take)
             }
-            names(dim(var_result)) <- names(indices_to_take)[reorder_back]
             #if (!is.null(missing_dims)) {
             #  dim(var_result) <- original_dims
             #}