diff --git a/sw/supervision/pc_aircraft.ml b/sw/supervision/pc_aircraft.ml
index 1c95fd3b9d..1537747e69 100644
--- a/sw/supervision/pc_aircraft.ml
+++ b/sw/supervision/pc_aircraft.ml
@@ -79,7 +79,8 @@ let new_ac_id = fun () ->
 let parse_conf_xml = fun vbox ->
   let strings = ref [] in
   Hashtbl.iter (fun name _ac -> strings := name :: !strings) Utils.aircrafts;
-  Gtk_tools.combo ("" :: !strings) vbox
+  let ordered = List.sort String.compare ("" :: !strings) in
+  Gtk_tools.combo ordered vbox
 
 let editor =
   try Sys.getenv "EDITOR" with _ -> (
diff --git a/sw/supervision/pc_control_panel.ml b/sw/supervision/pc_control_panel.ml
index a476317842..2793706092 100644
--- a/sw/supervision/pc_control_panel.ml
+++ b/sw/supervision/pc_control_panel.ml
@@ -195,10 +195,11 @@ let supervision = fun ?file gui log (ac_combo : Gtk_tools.combo) (target_combo :
     Gtk_tools.add_to_combo session_combo "Simulation";
     Gtk_tools.add_to_combo session_combo "Replay";
     Gtk_tools.add_to_combo session_combo Gtk_tools.combo_separator;
-    Hashtbl.iter
-      (fun name _session ->
-	Gtk_tools.add_to_combo session_combo name)
-      sessions in
+    let strings = ref [] in
+    Hashtbl.iter (fun name _session -> strings := name :: !strings) sessions;
+    let ordered = List.sort String.compare !strings in
+    List.iter (fun name -> Gtk_tools.add_to_combo session_combo name) ordered
+  in
 
   register_custom_sessions ();
   Gtk_tools.select_in_combo session_combo "Simulation";