diff --git a/R/ByChunks.R b/R/ByChunks.R
index 8c293b9fb568053f19f3b638c0ba327432b15ca3..4560121408653c344affd9977021a85d2738a4ed 100644
--- a/R/ByChunks.R
+++ b/R/ByChunks.R
@@ -633,6 +633,8 @@ ByChunks <- function(step_fun, cube_headers, ..., chunks = 'auto',
       if (!silent) {
         startR:::.message(paste("Processing..."))
       }
+      #TODO: Find a better way to assign the names of data. When multiple steps for Compute is available, this way may fail.
+      names(data) <- names(cube_headers)
       t_begin_compute <- Sys.time()
       result <- multiApply::Apply(data, 
                                   target_dims = attr(step_fun, 'TargetDims'),