--- rpl/modules/motif/motif.rplc	2017/07/17 21:35:32	1.6
+++ rpl/modules/motif/motif.rplc	2017/08/22 11:22:04	1.8
@@ -11,6 +11,7 @@ exportExternalFunctions(
 		XtAppInitialize,
 		XtAppMainLoop,
 		XtCreatePopupShell,
+		XtCreateManagedWidget,
 		XtCreateWidget,
 		XtDestroyWidget,
 		XtPopdown,
@@ -70,7 +71,7 @@ declareSubroutine(onLoading)
 endSubroutine
 
 declareSubroutine(onClosing)
-	// Destruction des variables spécifiques
+	// Destruction des variables spécifiques et des callbacks
 	declareObject(variable);
 	declareDaisyChain(current);
 	declareDaisyChain(next);
@@ -78,8 +79,7 @@ declareSubroutine(onClosing)
 	current = lCallbacks;
 
 	repeatWhile(not nullified(current))
-		next = current;
-		nextElementOfDaisyChain(next);
+		next = nextElementOfDaisyChain(current);
 		variable = fetchElementFromDaisyChain(current);
 		freeObject(variable);
 		free(current);