--- rpl/src/instructions_t1.c 2015/01/05 13:12:39 1.54 +++ rpl/src/instructions_t1.c 2015/02/19 11:01:27 1.57 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.1.19 + RPL/2 (R) version 4.1.21 Copyright (C) 1989-2015 Dr. BERTRAND Joël This file is part of RPL/2. @@ -503,6 +503,7 @@ instruction_then(struct_processus *s_eta } if ((instruction_majuscule = conversion_majuscule( + s_etat_processus, (*s_etat_processus).instruction_courante)) == NULL) { liberation(s_etat_processus, s_objet);