--- a/TerminalApplication.st	Tue Jul 09 11:10:55 2013 +0200
+++ b/TerminalApplication.st	Tue Jul 09 11:31:10 2013 +0200
@@ -469,6 +469,7 @@
 
     vt startShellIn:initialDirectory.
     vt shellTerminateAction:[self shellFinishedInWorkspace:vt].
+    vt masterWindow:(self window).  "/ to change window title
 
     "Modified: / 07-04-2011 / 09:03:55 / cg"
 ! !
@@ -476,5 +477,6 @@
 !TerminalApplication class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.11 2011-11-30 10:06:32 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.12 2013-07-09 09:31:10 cg Exp $'
 ! !
+