--- rpl/modules/motif/XtAppInitialize.rplc	2017/07/10 14:48:44	1.3
+++ rpl/modules/motif/XtAppInitialize.rplc	2017/08/22 12:13:55	1.7
@@ -27,19 +27,21 @@ declareExternalFunction(XtAppInitialize)
 		createExternalObject(appObject, APPCONTEXT);
 		createExternalObject(widgetObject, WIDGET);
 
-		objectContainer(appObject) = allocate(size(sXtAppContext));
-		objectContainer(widgetObject) = allocate(size(Widget));
+		objectOf(appObject) = allocate(size(sXtAppContext));
+		objectOf(widgetObject) = allocate(size(Widget));
 
-		target((Widget *) objectContainer(widgetObject)) =
-				XtVaAppInitialize(address(target((sXtAppContext *)
-				objectContainer(appObject)).context),
+		XtSetLanguageProc(NULL, NULL, NULL);
+
+		target(objectContainer(Widget, widgetObject)) =
+				XtVaAppInitialize(address(target(
+				objectContainer(sXtAppContext, appObject)).context),
 				name, NULL, 0, address(argc), argv, NULL, NULL);
-		target((sXtAppContext *) objectContainer(appObject)).widget =
-				target((Widget *) objectContainer(widgetObject));
+		target(objectContainer(sXtAppContext, appObject)).widget =
+				target(objectContainer(Widget, widgetObject));
 
 		freeObject(nameObject);
 
-		if (nullified(objectContainer(appObject))) then
+		if (nullified(objectOf(appObject))) then
 			executionError("Nullified XtAppContext");
 			freeObject(appObject);
 			freeObject(widgetObject);