--- rpl/src/instructions_c3.c	2015/01/05 15:32:16	1.57
+++ rpl/src/instructions_c3.c	2022/09/07 13:40:33	1.75
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.20
-  Copyright (C) 1989-2015 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.34
+  Copyright (C) 1989-2021 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;