--- rpl/modules/motif/XtCreatePopupShell.rplc	2017/07/10 14:47:59	1.2
+++ rpl/modules/motif/XtCreatePopupShell.rplc	2017/07/30 21:59:40	1.3
@@ -44,12 +44,12 @@ declareExternalFunction(XtCreatePopupShe
 					freeObject(name));
 
 			createExternalObject(widget, WIDGET);
-			objectContainer(widget) = allocate(size(Widget));
+			objectOf(widget) = allocate(size(Widget));
 
-			target((Widget *) objectContainer(widget)) =
-					XtVaCreatePopupShell(wn, wc, target((Widget *)
-					objectContainer(parent)), NULL);
-			XtManageChild(target((Widget *) objectContainer(widget)));
+			target(objectContainer(Widget, widget)) =
+					XtVaCreatePopupShell(wn, wc, target(
+					objectContainer(Widget, parent)), NULL);
+			XtManageChild(target(objectContainer(Widget, widget)));
 
 			freeObject(parent);
 			freeObject(class);