--- rpl/src/rplcore.c	2010/02/10 10:14:26	1.4
+++ rpl/src/rplcore.c	2010/06/24 10:10:46	1.11
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.11
+  RPL/2 (R) version 4.0.17
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -154,6 +154,14 @@ rplcore(struct_processus *s_etat_process
 
 	free(message_erreur);
 
+	if (fprintf(fichier, "// System stack\n\n") < 0)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
+		return;
+	}
+
+	trace(s_etat_processus, fichier);
+
 	if (fprintf(fichier, "// Process stack\n\n") < 0)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;