diff --git a/sw/ground_segment/cockpit/map2d.ml b/sw/ground_segment/cockpit/map2d.ml
index 482ce682a7..6342ae5017 100644
--- a/sw/ground_segment/cockpit/map2d.ml
+++ b/sw/ground_segment/cockpit/map2d.ml
@@ -282,8 +282,7 @@ let center = fun geomap track () ->
   match track#last with
     None -> ()
   | Some geo ->
-      geomap#center geo;
-      geomap#canvas#update_now ()
+      geomap#center geo
 
 
 let active_dl_settings = fun ac_id x ->
@@ -701,6 +700,7 @@ let _ =
   let _active_vertical = fun x ->
     if x then vertical_situation#show () else vertical_situation#misc#hide () in
   ignore (geomap#menu_fact#add_item "Quit" ~key:GdkKeysyms._Q ~callback:quit);
+  ignore (geomap#menu_fact#add_item "Redraw" ~key:GdkKeysyms._L ~callback:geomap#canvas#update_now);
 
   (* Maps handling *)
   let map_menu = geomap#factory#add_submenu "Maps" in
diff --git a/sw/lib/ocaml/mapGoogle.ml b/sw/lib/ocaml/mapGoogle.ml
index af53f3c913..b10818853d 100644
--- a/sw/lib/ocaml/mapGoogle.ml
+++ b/sw/lib/ocaml/mapGoogle.ml
@@ -148,5 +148,4 @@ let fill_window = fun (geomap:MapCanvas.widget) ->
 	New_displayed z when z = zoom ->
 	  trees.(i) <- Tile
       | Gm.Not_available -> () in
-  loop (-1.) (-1.)  2. [|gm_tiles|] 0 18 "t";
-  geomap#canvas#update_now ()
+  loop (-1.) (-1.)  2. [|gm_tiles|] 0 18 "t"