--- rpl/src/instructions_a4.c	2010/01/26 15:22:45	1.1
+++ rpl/src/instructions_a4.c	2010/04/07 13:45:04	1.7
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.9
+  RPL/2 (R) version 4.0.14
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -556,7 +556,7 @@ instruction_asr(struct_processus *s_etat
 void
 instruction_append(struct_processus *s_etat_processus)
 {
-	file							*descripteur;
+	struct_descripteur_fichier		*descripteur;
 
 	struct_objet					*s_objet_argument;
 
@@ -609,11 +609,21 @@ instruction_append(struct_processus *s_e
 			return;
 		}
 
-		if (fseek(descripteur, (long) 0, SEEK_END) != 0)
+		if ((*descripteur).type == 'C')
+		{
+			if (fseek((*descripteur).descripteur_c, (long) 0, SEEK_END) != 0)
+			{
+				liberation(s_etat_processus, s_objet_argument);
+
+				(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
+				return;
+			}
+		}
+		else
 		{
 			liberation(s_etat_processus, s_objet_argument);
 
-			(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
+			(*s_etat_processus).erreur_execution = d_ex_erreur_type_fichier;
 			return;
 		}
 	}