--- rpl/src/sequenceur.c	2015/09/18 13:41:22	1.91
+++ rpl/src/sequenceur.c	2015/12/13 22:55:01	1.93
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.23
+  RPL/2 (R) version 4.1.24
   Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -541,6 +541,7 @@ sequenceur(struct_processus *s_etat_proc
 --------------------------------------------------------------------------------
 */
 
+			(*s_etat_processus).instruction_sensible = 'N';
 			analyse(s_etat_processus, NULL);
 
 			if ((*s_etat_processus).traitement_cycle_exit != 'N')
@@ -933,7 +934,8 @@ sequenceur(struct_processus *s_etat_proc
 					(*((struct_fonction *) (*s_objet).objet))
 							.nombre_arguments = 0;
 
-					if ((*s_etat_processus).instruction_intrinseque == 'Y')
+					if (((*s_etat_processus).instruction_intrinseque == 'Y') &&
+							((*s_etat_processus).instruction_sensible == 'N'))
 					{
 						if (((*((struct_fonction *) (*s_objet).objet))
 								.nom_fonction = conversion_majuscule(