diff --git a/README.md b/README.md
index 1d2af6d69e0c8d2f35ca800ae756b384872714c8..c82b11618eb7c10ff2ec1192530557d341a231d0 100644
--- a/README.md
+++ b/README.md
@@ -15,6 +15,7 @@ git clone https://githepia.hesge.ch/iti_logiciel_public/ada_sglib.git /home/monU
 
 Compilation de la librairie (ignorer les 'warning')
 ```
+cd /home/monUsername/ada_sglib
 gcc -c Xdraw.c
 gnatmake -c sglib.adb
 ar rc libSglib.a *.o
diff --git a/example/test_sglib.adb b/example/test_sglib.adb
index 8757b7d3c1bde79daff2792bca7cf56a1ce119b5..90ca4f7d86f381c8376d0861ab487cdb28e83166 100644
--- a/example/test_sglib.adb
+++ b/example/test_sglib.adb
@@ -2,7 +2,6 @@ with Sglib; use Sglib; -- Définition des paquetages utilises
 
 procedure TEST_SGLIB is
     -- Procedure principale dessinant textes et figures:
-    A : Integer;
 begin
     -- Initialisation de la fenetre X:
     INITX(100,100,400,400);
@@ -68,7 +67,7 @@ begin
     end loop ;
     -- Attente infinie:
     loop
-        A:=A+1;
+        Null;
     end loop ;
     --    -- Fermeture de la fenĂȘtre X:
     --CLOSEX;