--- rpl/src/instructions_l3.c	2013/03/20 17:11:45	1.41
+++ rpl/src/instructions_l3.c	2019/10/31 15:40:12	1.65
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.13
-  Copyright (C) 1989-2013 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.32
+  Copyright (C) 1989-2019 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -826,7 +826,8 @@ instruction_logscale(struct_processus *s
 
 	if ((*s_objet).type == NOM)
 	{
-		tampon = conversion_majuscule((*((struct_nom *) (*s_objet).objet)).nom);
+		tampon = conversion_majuscule(s_etat_processus,
+				(*((struct_nom *) (*s_objet).objet)).nom);
 
 		if (tampon == NULL)
 		{
@@ -907,8 +908,9 @@ instruction_logscale(struct_processus *s
 					return;
 				}
 
-				tampon = conversion_majuscule((*((struct_nom *)
-						(*(*l_element_courant).donnee).objet)).nom);
+				tampon = conversion_majuscule(s_etat_processus,
+						(*((struct_nom *) (*(*l_element_courant).donnee)
+						.objet)).nom);
 
 				if ((strcmp(tampon, "X") != 0) && (strcmp(tampon, "Y") != 0) &&
 						(strcmp(tampon, "Z") != 0))