--- a/FileBrowserV2.st	Sat Feb 08 22:59:08 2014 +0100
+++ b/FileBrowserV2.st	Tue Feb 11 16:04:30 2014 +0100
@@ -1515,7 +1515,7 @@
 
     |string|
 
-    string := 'FileBrowser ', aString.
+    string := 'FileBrowser: ', aString.
     self window label:string.
 !
 
@@ -1823,7 +1823,7 @@
 
     nSelected == 1 ifTrue:[
         (dir := self currentDirectory) notNil ifTrue:[
-            self window label:(dir baseName)
+            self changeFileBrowserTitleTo:(dir baseName)
         ]
     ].
     self updateBookmark
@@ -2396,11 +2396,11 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.216 2014-02-06 12:58:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.217 2014-02-11 15:04:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.216 2014-02-06 12:58:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.217 2014-02-11 15:04:30 cg Exp $'
 ! !