--- rpl/src/instructions_s9.c	2010/01/26 15:22:45	1.1
+++ rpl/src/instructions_s9.c	2010/04/07 13:45:09	1.7
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.9
+  RPL/2 (R) version 4.0.14
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -186,9 +186,12 @@ instruction_sort(struct_processus *s_eta
 				return;
 			}
 
-			if ((*(*(*s_etat_processus).s_liste_variables_partagees)
+			if (((*(*(*s_etat_processus).s_liste_variables_partagees)
 					.table[(*(*s_etat_processus).s_liste_variables_partagees)
-					.position_variable].objet).type != LST)
+					.position_variable].objet).type != LST) &&
+					((*(*(*s_etat_processus).s_liste_variables_partagees)
+					.table[(*(*s_etat_processus).s_liste_variables_partagees)
+					.position_variable].objet).type != TBL))
 			{
 				if (pthread_mutex_unlock(&((*(*s_etat_processus)
 						.s_liste_variables_partagees).mutex)) != 0)
@@ -230,9 +233,12 @@ instruction_sort(struct_processus *s_eta
 		}
 		else
 		{
-			if ((*(*s_etat_processus).s_liste_variables
+			if (((*(*s_etat_processus).s_liste_variables
+					[(*s_etat_processus).position_variable_courante].objet)
+					.type != LST) &&
+					((*(*s_etat_processus).s_liste_variables
 					[(*s_etat_processus).position_variable_courante].objet)
-					.type != LST)
+					.type != TBL))
 			{
 				(*s_etat_processus).erreur_execution =
 						d_ex_erreur_type_argument;