--- rpl/modules/motif/XtAddCallback.rplc	2017/07/17 21:35:32	1.4
+++ rpl/modules/motif/XtAddCallback.rplc	2017/07/22 11:29:49	1.5
@@ -61,11 +61,12 @@ declareExternalFunction(XtAddCallback)
 			XtAddCallback(target((Widget *) objectContainer(widget)),
 					callback, rplCallback, (XtPointer) sCallback);
 
-			tmp = allocate(size(struct_liste_chainee));
+			tmp = allocate(size(daisyChain));
 			tmp->next = lCallbacks;
 			tmp->data = callbackObject;
 			lCallbacks = tmp;
 
+			dupObject(callbackObject);
 			pushOnStack(callbackObject);
 		orElse
 			executionError("Application not initialized");