--- rpl/src/instructions_t3.c	2013/03/21 11:30:30	1.45
+++ rpl/src/instructions_t3.c	2013/03/23 17:46:28	1.46
@@ -602,6 +602,7 @@ instruction_tokenize(struct_processus *s
 	unsigned char						*registre_instruction_courante;
 	unsigned char						*registre_definitions_chainees;
 	unsigned char						*tampon;
+	unsigned char						*tampon2;
 
 	integer8							nombre_caracteres_echappement;
 	integer8							registre_longueur_definitions_chainees;
@@ -652,7 +653,15 @@ instruction_tokenize(struct_processus *s
 	{
 		// Conversion des caractères d'échappement
 
-		ptr = (unsigned char *) (*s_objet_argument).objet;
+		if ((tampon2 = malloc((strlen((*s_objet_argument).objet) + 1) *
+				sizeof(unsigned char))) == NULL)
+		{
+			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+			return;
+		}
+
+		strcpy(tampon2, (*s_objet_argument).objet);
+		ptr = tampon2;
 		ptr2 = ptr;
 
 		while((*ptr) != d_code_fin_chaine)
@@ -706,7 +715,7 @@ instruction_tokenize(struct_processus *s
 		// Remplacement des éventuels retours à la ligne et tabulations par
 		// des espaces.
 
-		ptr = (unsigned char *) (*s_objet_argument).objet;
+		ptr = tampon2;
 
 		while((*ptr) != d_code_fin_chaine)
 		{
@@ -733,8 +742,7 @@ instruction_tokenize(struct_processus *s
 				.longueur_definitions_chainees;
 		registre_position_courante = (*s_etat_processus).position_courante;
 
-		(*s_etat_processus).definitions_chainees = (unsigned char *)
-				(*s_objet_argument).objet;
+		(*s_etat_processus).definitions_chainees = tampon2;
 		(*s_etat_processus).longueur_definitions_chainees =
 				(integer8) strlen((*s_etat_processus).definitions_chainees);
 		(*s_etat_processus).position_courante = 0;
@@ -757,6 +765,8 @@ instruction_tokenize(struct_processus *s
 				(*s_etat_processus).position_courante =
 						registre_position_courante;
 
+				free(tampon2);
+
 				liberation(s_etat_processus, s_objet_argument);
 				liberation(s_etat_processus, s_objet_resultat);
 
@@ -870,6 +880,8 @@ instruction_tokenize(struct_processus *s
 		(*s_etat_processus).longueur_definitions_chainees =
 				registre_longueur_definitions_chainees;
 		(*s_etat_processus).position_courante = registre_position_courante;
+
+		free(tampon2);
 	}
 
 /*
@@ -893,7 +905,6 @@ instruction_tokenize(struct_processus *s
 	}
 
 	liberation(s_etat_processus, s_objet_argument);
-
 	return;
 }