--- rpl/src/instructions_s10.c	2012/03/01 10:14:07	1.55
+++ rpl/src/instructions_s10.c	2012/04/12 09:56:40	1.56
@@ -706,10 +706,18 @@ instruction_sqlconnect(struct_processus
 		if ((s_objet_resultat = parametres_sql(s_etat_processus,
 				s_objet_argument)) == NULL)
 		{
+			liberation(s_etat_processus, s_objet_resultat);
 			liberation(s_etat_processus, s_objet_argument);
 			return;
 		}
 
+		if ((*s_etat_processus).erreur_execution ==
+				d_ex_instruction_indisponible)
+		{
+			liberation(s_etat_processus, s_objet_resultat);
+			return;
+		}
+
 		if ((s_objet_systeme = copie_objet(s_etat_processus, s_objet_resultat,
 				'O')) == NULL)
 		{