--- rpl/src/instructions_c2.c	2012/12/17 21:22:43	1.43
+++ rpl/src/instructions_c2.c	2013/03/16 11:31:41	1.48
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.11
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.13
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -1190,9 +1190,7 @@ instruction_cross(struct_processus *s_et
 				.tableau)[2]), &(((integer8 *) (*((struct_vecteur *)
 				(*s_objet_argument_1).objet)).tableau)[1]), &(tampon_2));
 
-		tampon_2 = -tampon_2;
-
-		depassement |= depassement_addition(&(tampon_1), &(tampon_2),
+		depassement |= depassement_soustraction(&(tampon_1), &(tampon_2),
 				&(((integer8 *) (*((struct_vecteur *) (*s_objet_resultat)
 				.objet)).tableau)[0]));
 
@@ -1206,9 +1204,7 @@ instruction_cross(struct_processus *s_et
 				.tableau)[0]), &(((integer8 *) (*((struct_vecteur *)
 				(*s_objet_argument_1).objet)).tableau)[2]), &(tampon_2));
 
-		tampon_2 = -tampon_2;
-
-		depassement |= depassement_addition(&(tampon_1), &(tampon_2),
+		depassement |= depassement_soustraction(&(tampon_1), &(tampon_2),
 				&(((integer8 *) (*((struct_vecteur *) (*s_objet_resultat)
 				.objet)).tableau)[1]));
 
@@ -1222,9 +1218,7 @@ instruction_cross(struct_processus *s_et
 				.tableau)[1]), &(((integer8 *) (*((struct_vecteur *)
 				(*s_objet_argument_1).objet)).tableau)[0]), &(tampon_2));
 
-		tampon_2 = -tampon_2;
-
-		depassement |= depassement_addition(&(tampon_1), &(tampon_2),
+		depassement |= depassement_soustraction(&(tampon_1), &(tampon_2),
 				&(((integer8 *) (*((struct_vecteur *) (*s_objet_resultat)
 				.objet)).tableau)[2]));