--- rpl/modules/motif/XtAppInitialize.rplc	2017/08/21 11:33:21	1.5
+++ rpl/modules/motif/XtAppInitialize.rplc	2017/08/23 09:40:53	1.8
@@ -30,6 +30,8 @@ declareExternalFunction(XtAppInitialize)
 		objectOf(appObject) = allocate(size(sXtAppContext));
 		objectOf(widgetObject) = allocate(size(Widget));
 
+		XtSetLanguageProc(NULL, NULL, NULL);
+
 		target(objectContainer(Widget, widgetObject)) =
 				XtVaAppInitialize(address(target(
 				objectContainer(sXtAppContext, appObject)).context),
@@ -37,6 +39,9 @@ declareExternalFunction(XtAppInitialize)
 		target(objectContainer(sXtAppContext, appObject)).widget =
 				target(objectContainer(Widget, widgetObject));
 
+		XtVaSetValues(target(objectContainer(Widget, widgetObject)),
+				XmNtitle, name,
+				NULL);
 		freeObject(nameObject);
 
 		if (nullified(objectOf(appObject))) then