--- rpl/src/instructions_p3.c	2011/08/09 11:31:34	1.28
+++ rpl/src/instructions_p3.c	2012/03/01 10:14:07	1.34
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.3
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.7
+  Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -1377,9 +1377,10 @@ instruction_pos(struct_processus *s_etat
 		}
 		else
 		{
-			(*((integer8 *) (*s_objet_resultat).objet)) = 1 + (integer8)
-					(pointeur_occurrence - ((unsigned char *)
-					(*s_objet_argument_2).objet));
+			(*((integer8 *) (*s_objet_resultat).objet)) =
+					position_caractere_de_chaine(s_etat_processus,
+					(unsigned char *) (*s_objet_argument_2).objet,
+					pointeur_occurrence);
 		}
 	}