--- rpl/src/instructions_c3.c	2013/09/06 10:30:52	1.51
+++ rpl/src/instructions_c3.c	2018/05/30 09:27:33	1.68
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.16
-  Copyright (C) 1989-2013 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.29
+  Copyright (C) 1989-2018 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -63,6 +63,14 @@ instruction_clmf(struct_processus *s_eta
 		return;
 	}
 
+	if (test_cfsf(s_etat_processus, 31) == d_vrai)
+	{
+		if (empilement_pile_last(s_etat_processus, 0) == d_erreur)
+		{
+			return;
+		}
+	}
+
 	affichage_pile(s_etat_processus, (*s_etat_processus).l_base_pile, 1);
 
 	return;
@@ -109,6 +117,14 @@ instruction_cont(struct_processus *s_eta
 		return;
 	}
 
+	if (test_cfsf(s_etat_processus, 31) == d_vrai)
+	{
+		if (empilement_pile_last(s_etat_processus, 0) == d_erreur)
+		{
+			return;
+		}
+	}
+
 	(*s_etat_processus).debug_programme = d_faux;
 	(*s_etat_processus).execution_pas_suivant = d_vrai;