--- rpl/modules/motif/XtAppInitialize.rplc	2017/08/22 12:13:55	1.7
+++ rpl/modules/motif/XtAppInitialize.rplc	2017/08/23 09:40:53	1.8
@@ -39,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