diff --git a/R/PlotEquiMap.R b/R/PlotEquiMap.R
index 8c3e3a073bfae5312249281eadca27846a39113e..51599dc70f90f5440f61f0fab8bae9a5e3cf5663 100644
--- a/R/PlotEquiMap.R
+++ b/R/PlotEquiMap.R
@@ -640,10 +640,6 @@ PlotEquiMap <- function(var, lon, lat, varu = NULL, varv = NULL,
   #  Colorbar
   # ~~~~~~~~~~
   #
-  if (toptitle != "") {
-    margins[3] <- margins[3] - (cex_title + 1)
-    par(mar = margins)
-  }
   if (drawleg) {
     ColorBar(brks, cols, FALSE, subsampleg, bar_limits, var_limits, 
              triangle_ends, col_inf = col_inf, col_sup = col_sup,