--- rpl/src/interface_cas.cpp	2011/11/18 09:51:33	1.19
+++ rpl/src/interface_cas.cpp	2012/05/21 17:25:45	1.26
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.4
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.9
+  Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -84,7 +84,6 @@ conversion_rpl_vers_cas(struct_processus
 	logical1				drapeau;
 
 	struct_liste_chainee	*l_element_courant;
-	struct_liste_chainee	*l_element_precedent;
 
 	struct_objet			*s_objet_temporaire;
 
@@ -215,7 +214,6 @@ conversion_rpl_vers_cas(struct_processus
 				}
 			}
 
-			l_element_precedent = l_element_courant;
 			l_element_courant = l_element_courant->suivant;
 		}
 	}
@@ -269,7 +267,6 @@ conversion_cas_vers_rpl(struct_processus
 	logical1					drapeau;
 
 	struct_liste_chainee		*l_element_courant;
-	struct_liste_chainee		*l_element_precedent;
 
 	struct_objet				*s_objet;
 
@@ -342,7 +339,6 @@ conversion_cas_vers_rpl(struct_processus
 
 	if ((s_objet->type == ALG) || (s_objet->type == RPN))
 	{
-		l_element_precedent = NULL;
 		l_element_courant = reinterpret_cast<struct_liste_chainee *>(
 				s_objet->objet);
 
@@ -388,7 +384,6 @@ conversion_cas_vers_rpl(struct_processus
 				}
 			}
 
-			l_element_precedent = l_element_courant;
 			l_element_courant = l_element_courant->suivant;
 		}
 	}
@@ -574,6 +569,8 @@ interface_cas(struct_processus *s_etat_p
 			l_element_courant = reinterpret_cast<struct_liste_chainee *>
 					(s_objet_argument_1->objet);
 			position = 1;
+			argument_1 = NULL;
+			argument_3 = NULL;
 			argument_4 = NULL;
 
 			while(l_element_courant != NULL)