diff --git a/modules/Visualization/Visualization.R b/modules/Visualization/Visualization.R
index 61efe4a284545c9af2db6624a468c828da01e847..c1bf912123be03eab160993ba705347136ee600f 100644
--- a/modules/Visualization/Visualization.R
+++ b/modules/Visualization/Visualization.R
@@ -145,6 +145,12 @@ plot_skill_metrics <- function(recipe, archive, data_cube, skill_metrics,
       skill_significance <- Reorder(skill_significance, c("time", 
       						          "longitude",
       						          "latitude"))
+      # Split skill significance into list of lists, along the time dimension
+      # This allows for plotting the significance dots correctly.
+      skill_significance <- ClimProjDiags::ArrayToList(skill_significance,
+						       dim = 'time',
+						       level = "sublist",
+						       names = "dots")
     } else {
       skill_significance <- NULL
     }
@@ -156,9 +162,11 @@ plot_skill_metrics <- function(recipe, archive, data_cube, skill_metrics,
       			              label = T, abb = F))
     titles <- as.vector(months)
     # Plot
+    suppressWarnings(
     PlotLayout(PlotEquiMap, c('longitude', 'latitude'),
-               skill, longitude, latitude,
-      	       dots = skill_significance,
+               asplit(skill, MARGIN=1), # Splitting array into a list
+	       longitude, latitude,
+	       special_args = skill_significance, 
       	       dot_symbol = 20,
       	       toptitle = toptitle,
       	       title_scale = 0.6,
@@ -168,6 +176,7 @@ plot_skill_metrics <- function(recipe, archive, data_cube, skill_metrics,
                cols = col2,
                fileout = outfile,
                bar_label_digits = 3)
+    )
     }    
   }