--- rpl/src/instructions_f3.c	2011/03/06 16:44:11	1.23
+++ rpl/src/instructions_f3.c	2011/03/12 15:32:03	1.24
@@ -148,6 +148,17 @@ instruction_format(struct_processus *s_e
 	if (((*s_objet_argument_1).type == FCH) &&
 			((*s_objet_argument_2).type == LST))
 	{
+		if ((*((struct_fichier *) (*s_objet_argument_1).objet)).binaire
+				== 'F')
+		{
+			liberation(s_etat_processus, s_objet_argument_1);
+			liberation(s_etat_processus, s_objet_argument_2);
+
+			(*s_etat_processus).erreur_execution =
+					d_ex_erreur_format_fichier;
+			return;
+		}
+
 		if ((s_copie_argument_1 = copie_objet(s_etat_processus,
 				s_objet_argument_1, 'N')) == NULL)
 		{
@@ -167,6 +178,17 @@ instruction_format(struct_processus *s_e
 	else if (((*s_objet_argument_1).type == SCK) &&
 			((*s_objet_argument_2).type == LST))
 	{
+		if ((*((struct_socket *) (*s_objet_argument_1).objet)).binaire
+				== 'F')
+		{
+			liberation(s_etat_processus, s_objet_argument_1);
+			liberation(s_etat_processus, s_objet_argument_2);
+
+			(*s_etat_processus).erreur_execution =
+					d_ex_erreur_format_fichier;
+			return;
+		}
+
 		if ((s_copie_argument_1 = copie_objet(s_etat_processus,
 				s_objet_argument_1, 'N')) == NULL)
 		{