--- rpl/src/instructions_s1.c	2013/03/21 11:30:30	1.65
+++ rpl/src/instructions_s1.c	2013/03/21 12:07:38	1.66
@@ -4109,7 +4109,7 @@ instruction_syseval(struct_processus *s_
 			longueur_tampon = (integer8) strlen(tampon);
 
 			for(i = 0, ptr = tampon, nombre_lignes = 0;
-					i < (long) longueur_tampon; i++, ptr++)
+					i < longueur_tampon; i++, ptr++)
 			{
 				if ((*ptr) == d_code_retour_chariot)
 				{
@@ -4143,7 +4143,7 @@ instruction_syseval(struct_processus *s_
 				l_element_courant = (struct_liste_chainee *)
 						(*s_objet_resultat).objet;
 
-				for(i = 0, ptr = tampon; i < (long) nombre_lignes; i++)
+				for(i = 0, ptr = tampon; i < nombre_lignes; i++)
 				{
 					if (((*l_element_courant).donnee =
 							allocation(s_etat_processus, CHN)) == NULL)