diff --git a/modules/Scorecards/R/tmp/WeightedMetrics.R b/modules/Scorecards/R/tmp/WeightedMetrics.R
index 9d1630c419ebc967fb6dc94ba59c3a4f0d5b1461..08267db4cce8c5590598acc6f3bd4ab93af15a47 100644
--- a/modules/Scorecards/R/tmp/WeightedMetrics.R
+++ b/modules/Scorecards/R/tmp/WeightedMetrics.R
@@ -83,6 +83,10 @@ WeightedMetrics <- function(loaded_metrics, regions, forecast.months,
                                       na.rm = na.rm, 
                                       ncores = ncores)
         
+        if (!all(names(dim(weighted.mean)) == c('metric', 'time', 'sdate'))) {
+          weighted.mean <- Reorder(weighted.mean, c('metric', 'time', 'sdate'))
+        }
+        
         all_metric_means[, , , reg, ref, sys] <- weighted.mean
         
       } ## close loop on region