--- rpl/src/instructions_s2.c	2010/02/27 12:39:27	1.5
+++ rpl/src/instructions_s2.c	2012/01/17 14:44:11	1.38
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.11
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.6
+  Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -20,7 +20,7 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
@@ -764,7 +764,8 @@ instruction_size(struct_processus *s_eta
 		}
 
 		(*((integer8 *) (*s_objet_resultat).objet)) =
-				strlen((unsigned char *) (*s_objet_argument).objet);
+				longueur_chaine(s_etat_processus,
+				(unsigned char *) (*s_objet_argument).objet);
 	}
 
 /*
@@ -1092,12 +1093,6 @@ instruction_str_fleche(struct_processus
 
 	if ((*s_objet).type == CHN)
 	{
-		position_courante = (*s_etat_processus).position_courante;
-		registre_definitions_chainees = (*s_etat_processus)
-				.definitions_chainees;
-		registre_instruction_courante = (*s_etat_processus)
-				.instruction_courante;
-
 		// Comptage des caractères à protéger.
 
 		drapeau45 = test_cfsf(s_etat_processus, 45);
@@ -1233,6 +1228,12 @@ instruction_str_fleche(struct_processus
 
 		(*ptr_e) = d_code_fin_chaine;
 
+		position_courante = (*s_etat_processus).position_courante;
+		registre_definitions_chainees = (*s_etat_processus)
+				.definitions_chainees;
+		registre_instruction_courante = (*s_etat_processus)
+				.instruction_courante;
+		(*s_etat_processus).position_courante = 0;
 		(*s_etat_processus).definitions_chainees = chaine_convertie;
 		free(tampon);
 
@@ -1257,7 +1258,8 @@ instruction_str_fleche(struct_processus
 
 			recherche_type(s_etat_processus);
 
-			if ((*s_etat_processus).erreur_execution != d_ex)
+			if (((*s_etat_processus).erreur_execution != d_ex) ||
+					((*s_etat_processus).erreur_systeme != d_es))
 			{
 				liberation(s_etat_processus, s_objet);