--- a/TerminalApplication.st	Mon Jul 15 13:16:46 2013 +0100
+++ b/TerminalApplication.st	Tue Jul 16 17:18:09 2013 +0100
@@ -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"
     "Modified: / 03-04-2012 / 10:31:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -477,7 +478,7 @@
 !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 $'
 !
 
 version_HG