diff --git a/R/pal_reach.R b/R/pal_reach.R
index e3332b8..7482f7b 100644
--- a/R/pal_reach.R
+++ b/R/pal_reach.R
@@ -26,8 +26,8 @@ pal_reach <- function(palette = "main", reverse = FALSE, color_ramp_palette = FA
     `iroise_5`        = cols_reach("iroise_1", "iroise_2", "iroise_3", "iroise_4", "iroise_5"),
     `discrete_6`      = cols_reach("dk_grey", "red_main_1", "main_beige", "red_main_2", "lt_grey_2", "red_4"),
     `red_2` = cols_reach("red_less_4_1", "red_less_4_3"),
-    `red_3` = cols_reach("red_less_4_1", "red_less_2", "red_less_4_3"),
-    `red_4` = cols_reach("red_less_4_1", "red_less_2", "red_less_4_3", "red_less_4_4"),
+    `red_3` = cols_reach("red_less_4_1", "red_less_4_2", "red_less_4_3"),
+    `red_4` = cols_reach("red_less_4_1", "red_less_4_2", "red_less_4_3", "red_less_4_4"),
     `red_5` = cols_reach("red_5_1", "red_5_2", "red_5_3", "red_5_4", "red_5_5"),
     `red_6` = cols_reach("red_less_7_1", "red_less_2", "red_less_7_3", "red_less_7_4", "red_less_7_5", "red_less_7_6"),
     `red_7` = cols_reach("red_less_7_1", "red_less_7_2", "red_less_7_3", "red_less_7_4", "red_less_7_5", "red_less_7_6", "red_less_7_7"),