Index: gui/audace/plugin/chart/carteducielv3/carteducielv3.tcl
===================================================================
--- gui/audace/plugin/chart/carteducielv3/carteducielv3.tcl	(revision 9288)
+++ gui/audace/plugin/chart/carteducielv3/carteducielv3.tcl	(working copy)
@@ -400,9 +400,9 @@
    #  Description de l'interface Audela / CarteDuCiel
    #  -------------------------------------
    #  Requete TCP envoyee a CarteDuCiel :
-   #     puts socket "GETMSGBOX"
-   #  Reponse DDE retournee par CarteDuCiel :
-   #     ligne : position du centre et champ de vision de la carte
+   #     puts socket "GETSELECTEDOBJECT"
+   #  Reponse retournee par CarteDuCiel :
+   #     ligne : dernier objet selectione sur la carte
    #
    #  exemple de reponse :
    #     ligne : OK!\n14h15m39.70s +19°10'57.0"   * HR 5340 HD124897 Fl: 16 Ba:Alp  const:Boo mV:-0.04 b-v: 1.23 sp:  K1.5IIIFe-0.5      pm:-1.093 -1.998 ;ARCTURUS; Haris-el-sema
@@ -514,7 +514,12 @@
       variable private
       global caption
 
-      set result [ sendRequest "GETMSGBOX" ]
+      #--- nouvelle commande depuis la version 3.9, retourne la meme chaine qu'avant 3.6
+      set result [ sendRequest "GETSELECTEDOBJECT" ]
+      if { $result == "Failed! Bad command name" } {
+         #--- ancienne commande jusqu'a 3.8. ne marche que si CarteDuCiel est en français  
+         set result [ sendRequest "GETMSGBOX" ]
+      }
       if { $result == "" } {
          return ""
       }
@@ -529,7 +534,7 @@
       set magnitude ""
       scan $ligne "%s %s %s %s %\[^\r\] " cr ra dec objType detail
       if { $ra == "AR:" } {
-        # ::console::disp "CdC V3.6 et +. \n"
+        # ::console::disp "CdC V3.6 et V3.8 \n"
          scan $ligne "%s %s %s %s %s %\[^\r\] " cr AR ra dec objType detail
          set dec [ string range $dec 3 end ]
       }