--- rpl/src/instructions_n2.c	2011/09/26 15:57:14	1.29
+++ rpl/src/instructions_n2.c	2011/11/17 22:21:16	1.30
@@ -38,9 +38,13 @@
 void
 instruction_num(struct_processus *s_etat_processus)
 {
+	long						longueur;
+
 	struct_objet				*s_objet_argument;
 	struct_objet				*s_objet_resultat;
 
+	unsigned char				*chaine;
+
 	(*s_etat_processus).erreur_execution = d_ex;
 
 	if ((*s_etat_processus).affichage_arguments == 'Y')
@@ -90,7 +94,8 @@ instruction_num(struct_processus *s_etat
 
 	if ((*s_objet_argument).type == CHN)
 	{
-		if (strlen((unsigned char *) (*s_objet_argument).objet) != 1)
+		if (longueur_chaine(s_etat_processus, (unsigned char *)
+				(*s_objet_argument).objet) != 1)
 		{
 			liberation(s_etat_processus, s_objet_argument);
 
@@ -98,14 +103,21 @@ instruction_num(struct_processus *s_etat
 			return;
 		}
 
+		if ((chaine = formateur_flux(s_etat_processus, (unsigned char *)
+				(*s_objet_argument).objet, &longueur)) == NULL)
+		{
+			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+			return;
+		}
+
 		if ((s_objet_resultat = allocation(s_etat_processus, INT)) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
 		}
 
-		(*((integer8 *) (*s_objet_resultat).objet)) =
-				(integer8) ((unsigned char *) (*s_objet_argument).objet)[0];
+		(*((integer8 *) (*s_objet_resultat).objet)) = chaine[0];
+		free(chaine);
 	}
 
 /*