--- rpl/modules/motif/XtPopdown.rplc	2017/07/10 07:25:24	1.1
+++ rpl/modules/motif/XtPopdown.rplc	2017/07/30 21:59:40	1.2
@@ -19,8 +19,8 @@ declareExternalFunction(XtPopdown)
 				returnOnError(freeObject(widget));
 			endIf
 
-			XtPopdown(target((Widget *) objectContainer(widget)));
-			XFlush(XtDisplay(target((Widget *) objectContainer(widget))));
+			XtPopdown(target(objectContainer(Widget, widget)));
+			XFlush(XtDisplay(target(objectContainer(Widget, widget))));
 
 			freeObject(widget);
 		orElse