--- rpl/src/instructions_f3.c	2019/10/31 15:40:10	1.82
+++ rpl/src/instructions_f3.c	2019/11/05 15:37:50	1.83
@@ -1643,28 +1643,73 @@ instruction_fleche_num(struct_processus
 		return;
 	}
 
-	if ((s_objet_simplifie = simplification(s_etat_processus, s_objet)) == NULL)
+	if (test_cfsf(s_etat_processus, 46) == d_vrai)
 	{
-		if (last_valide == d_vrai)
+		if (evaluation(s_etat_processus, s_objet, 'N') == d_erreur)
 		{
-			sf(s_etat_processus, 31);
+			if (last_valide == d_vrai)
+			{
+				sf(s_etat_processus, 31);
+			}
+
+			if (registre_type_evaluation == 'E')
+			{
+				sf(s_etat_processus, 35);
+			}
+			else
+			{
+				cf(s_etat_processus, 35);
+			}
+
+			liberation(s_etat_processus, s_objet);
+			return;
 		}
 
-		if (registre_type_evaluation == 'E')
+		if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
+				&s_objet) == d_erreur)
 		{
-			sf(s_etat_processus, 35);
+			if (last_valide == d_vrai)
+			{
+				sf(s_etat_processus, 31);
+			}
+
+			if (registre_type_evaluation == 'E')
+			{
+				sf(s_etat_processus, 35);
+			}
+			else
+			{
+				cf(s_etat_processus, 35);
+			}
+
+			(*s_etat_processus).erreur_execution = d_ex_manque_argument;
+			return;
 		}
-		else
+
+		if ((s_objet_simplifie = simplification(s_etat_processus, s_objet))
+				== NULL)
 		{
-			cf(s_etat_processus, 35);
+			if (last_valide == d_vrai)
+			{
+				sf(s_etat_processus, 31);
+			}
+
+			if (registre_type_evaluation == 'E')
+			{
+				sf(s_etat_processus, 35);
+			}
+			else
+			{
+				cf(s_etat_processus, 35);
+			}
+
+			return;
 		}
 
-		return;
+		liberation(s_etat_processus, s_objet);
+		s_objet = s_objet_simplifie;
 	}
 
-	liberation(s_etat_processus, s_objet);
-	s_objet = s_objet_simplifie;
-
 	if (evaluation(s_etat_processus, s_objet, 'N') == d_erreur)
 	{
 		if (last_valide == d_vrai)