--- rpl/src/instructions_s9.c	2010/07/24 18:01:12	1.15
+++ rpl/src/instructions_s9.c	2010/07/25 16:16:21	1.16
@@ -57,6 +57,7 @@ instruction_sort(struct_processus *s_eta
 	struct_objet				*s_objet_copie;
 	struct_objet				*s_objet_critere;
 	struct_objet				*s_objet_liste;
+	struct_objet				*s_objet_registre;
 	struct_objet				*s_objet_test;
 
 	signed long					indice_i;
@@ -556,12 +557,17 @@ instruction_sort(struct_processus *s_eta
 
 							if (condition == d_faux)
 							{
-								swap(&((*((struct_tableau *)
+								s_objet_registre =
+										(*((struct_tableau *)
 										(*s_objet_liste).objet)).elements
-										[indice_i - 1]),
-										&((*((struct_tableau *) (*s_objet_liste)
-										.objet)).elements[indice_l - 1]),
-										sizeof(struct_objet *));
+										[indice_i - 1];
+								(*((struct_tableau *) (*s_objet_liste).objet))
+										.elements[indice_i - 1] =
+										(*((struct_tableau *) (*s_objet_liste)
+										.objet)).elements[indice_l - 1];
+								(*((struct_tableau *) (*s_objet_liste)
+										.objet)).elements[indice_l - 1] =
+										s_objet_registre;
 
 								indice_i -= ecartement;