Petit problème ADA

Bonjour à tous,

J'ai besoin de tester une procedure d'un package pour un TP d'ADA.
Mon programme de test est le suivant:

with Ada.Text_Io, Ada.Integer_Text_Io, Plateau, Ada.Command_Line ;
use Ada.Text_Io, Ada.Integer_Text_Io, Plateau, Ada.Command_Line ;


procedure Test_Exporte_Etat is

   Erreur_Argument : Exception;
   E : Etat;
   R, C: Natural;

begin

   if Argument_Count=0 then
      raise Erreur_Argument;
   end if;

   Init_Plateau("./.." & Argument(1));
   E := Exporte_Etat;

   C := E.Carre1;
   R := E.Reste;

   Put("Carre1 = "); Put(C);
   New_Line;
   Put("Reste = "); Put(R);

end Test_Exporte_Etat;

La seule chose que vous devez savoir, c'est que le type Etat est défini ainsi dans le package plateau:

type Etat is record
  Carre1, Reste: Natural ;
end record ;

Et Exporte_Etat est une fonction sans paramètre qui retourne un Etat.

Pourtant, j'ai une erreur de compilation:

test_exporte_etat.adb:20:09: invalid prefix in selected component "E"
test_exporte_etat.adb:21:09: invalid prefix in selected component "E"

En gros ce sont les lignes suivantes qui plantent:

   C := E.Carre1;
   R := E.Reste;

Un dernier détail, je sais que la fonction exporte_etat fonctionne parfaitement bien, pour l'avoir testée de façon differente déjà.

Je ne comprend pas du tout!
Merci d'avance de votre aide!!