--- a/DirectoryTreeBrowser.st	Wed Apr 22 19:53:25 2015 +0200
+++ b/DirectoryTreeBrowser.st	Wed Apr 22 19:54:49 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 AbstractDirectoryBrowser subclass:#DirectoryTreeBrowser
 	instanceVariableNames:'oldDropItem expandItemTimedBlock updateTreeSelection
 		doubleClickAction newVisibilityHolder allowFileOperations
@@ -1012,8 +1016,7 @@
     selectedItems := self selectedItems.
     selectedItems isEmpty ifTrue:[ ^ ''].
 
-    stream := WriteStream on:''.
-    stream nextPutAll:(selectedItems first baseName).
+    stream := CharacterWriteStream with:(selectedItems first baseName).
     selectedItems size == 1 ifTrue:[
         fnName := 'ui_menuitem.xpm'.
     ] ifFalse:[
@@ -1404,10 +1407,10 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.130 2014-07-04 10:22:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.131 2015-04-22 17:54:49 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.130 2014-07-04 10:22:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.131 2015-04-22 17:54:49 stefan Exp $'
 ! !