diff --git a/R/VizEquiMap.R b/R/VizEquiMap.R
index 2633cebc9c96ed3980dd881cf7b16e4b5eb9d17c..a828970799f3fa69a81a3b29643bb213a15afd4e 100644
--- a/R/VizEquiMap.R
+++ b/R/VizEquiMap.R
@@ -1210,7 +1210,9 @@ VizEquiMap <- function(var, lon, lat, varu = NULL, varv = NULL,
   #  Plotting continents
   # ~~~~~~~~~~~~~~~~~~~~~
   #
-  wrap_vec <- c(lonb$x[1], lonb$x[1] + 360)
+  lonb_c <- lonb
+  lonb_c$x[1] <- lonb_c$x[1] - abs(diff(lonb_c$x)[1])
+  wrap_vec <- c(lonb_c$x[1], lonb_c$x[1] + 360)
   old_lwd <- par('lwd')
   par(lwd = coast_width)
   # If [0, 360], use GEOmap; if [-180, 180], use maps::map