--- rpl/modules/motif/XtCreatePopupShell.rplc	2017/07/10 07:25:24	1.1
+++ rpl/modules/motif/XtCreatePopupShell.rplc	2017/07/10 14:47:59	1.2
@@ -44,6 +44,7 @@ declareExternalFunction(XtCreatePopupShe
 					freeObject(name));
 
 			createExternalObject(widget, WIDGET);
+			objectContainer(widget) = allocate(size(Widget));
 
 			target((Widget *) objectContainer(widget)) =
 					XtVaCreatePopupShell(wn, wc, target((Widget *)