--- rpl/src/instructions_u1.c	2011/09/26 15:57:16	1.32
+++ rpl/src/instructions_u1.c	2011/11/18 20:24:40	1.33
@@ -689,7 +689,6 @@ instruction_utpt(struct_processus *s_eta
 void
 instruction_use(struct_processus *s_etat_processus)
 {
-	logical1						erreur;
 	logical1						existence;
 	logical1						ouverture;
 
@@ -770,7 +769,7 @@ instruction_use(struct_processus *s_etat
 			sprintf(tampon, "./%s", (unsigned char *)
 					(*s_objet_argument).objet);
 
-			erreur = caracteristiques_fichier(s_etat_processus, tampon,
+			caracteristiques_fichier(s_etat_processus, tampon,
 					&existence, &ouverture, &unite);
 
 			if (existence != d_faux)