diff --git a/R/defStormsList.R b/R/defStormsList.R
index 36bc79fd..0cea095f 100644
--- a/R/defStormsList.R
+++ b/R/defStormsList.R
@@ -653,10 +653,12 @@ checkInputsDefStormsList <- function(sds, loi, seasons, names, maxDist, scale, s
   stopifnot("scale must be vector of numeric" = identical(class(scale), "numeric"))
   
   # Checking scalePalette input
-  stopifnot("scalePalette must be a named vector of character" = identical(class(scalePalette), "character"))
+  if(!is.null(scalePalette)){
+    stopifnot("scalePalette must be a (named) character vector" = identical(class(scalePalette), "character"))
+    stopifnot("(lenght(scalePalette) must be equal to lenght(scale) + 1)" = 
+                length(scalePalette) == length(scale) + 1)
+  }
   
-  stopifnot("invalid length of either scale or scalePalette input (lenght(scalePalette) must be equal to lenght(scalePalette) + 1)" = 
-              length(scalePalette) == length(scale) + 1)
 
   #Checking verbose input
   stopifnot("verbose must be numeric" = identical(class(verbose), "numeric"))
@@ -1042,7 +1044,7 @@ defStormsList <- function(sds,
                    names = NULL,
                    maxDist = 300,
                    scale = sshs,
-                   scalePalette = sshsPalette,
+                   scalePalette = NULL,
                    removeUnder = NULL,
                    verbose = 2) {
 
@@ -1052,6 +1054,22 @@ defStormsList <- function(sds,
   
   # order scale
   scale = scale[order(scale)]
+  
+  
+  if(identical(scale, sshs) & is.null(scalePalette)){
+    # Default palette should be SSHS
+    scalePalette <- sshsPalette
+    
+  }else if(scale != sshs & is.null(scalePalette)){
+    # Create a default color Palette based on the number of level in scale
+    
+  }else if(is.null(names(scalePalette))){
+    # If scalePalette has no names, provide default ones
+    names(scalePalette) <- seq(1, length(scalePalette))
+    
+  }
+  
+
 
   if (length(seasons) == 2)
     seasons <- seasons[order(seasons)]
diff --git a/man/defStormsList.Rd b/man/defStormsList.Rd
index 15422cd6..230446c4 100644
--- a/man/defStormsList.Rd
+++ b/man/defStormsList.Rd
@@ -11,7 +11,7 @@ defStormsList(
   names = NULL,
   maxDist = 300,
   scale = sshs,
-  scalePalette = sshsPalette,
+  scalePalette = NULL,
   removeUnder = NULL,
   verbose = 2
 )