--- rpl/modules/motif/motif.rplc	2017/07/17 21:35:32	1.6
+++ rpl/modules/motif/motif.rplc	2017/08/22 11:37:31	1.9
@@ -6,11 +6,13 @@ libraryName(motif);
 
 exportExternalFunctions(
 		XSynchronize,
+		XStoreName,
 		XtAddCallback,
 		XtAppExitMainLoop,
 		XtAppInitialize,
 		XtAppMainLoop,
 		XtCreatePopupShell,
+		XtCreateManagedWidget,
 		XtCreateWidget,
 		XtDestroyWidget,
 		XtPopdown,
@@ -70,7 +72,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 +80,7 @@ declareSubroutine(onClosing)
 	current = lCallbacks;
 
 	repeatWhile(not nullified(current))
-		next = current;
-		nextElementOfDaisyChain(next);
+		next = nextElementOfDaisyChain(current);
 		variable = fetchElementFromDaisyChain(current);
 		freeObject(variable);
 		free(current);