--- rpl/src/optimisation.c	2011/06/23 12:41:15	1.28
+++ rpl/src/optimisation.c	2011/09/20 14:36:29	1.34
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.3
+  RPL/2 (R) version 4.1.3
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -72,6 +72,7 @@ sequenceur_optimise(struct_processus *s_
 
 	point_entree = -1;
 	adresse_point_entree = 0;
+	programme_principal = NULL;
 
 	empilement_pile_systeme(s_etat_processus);
 	(*(*s_etat_processus).l_base_pile_systeme).retour_definition = 'Y';