--- a/AbstractFileFinderApplicationComponent.st	Wed Apr 22 19:24:51 2015 +0200
+++ b/AbstractFileFinderApplicationComponent.st	Wed Apr 22 19:25:52 2015 +0200
@@ -92,13 +92,12 @@
     sel := self selectionHolder value.
     list := self shownList.
     (sel notEmptyOrNil) ifTrue:[
-        stream := WriteStream on:''.
+        stream := CharacterWriteStream new.
         sel do:[: key |
             stream nextPutAll:(list at:key).
             stream cr.
         ].
         self window setClipboardText:stream contents.
-        stream close.
     ].
 !
 
@@ -327,8 +326,7 @@
     size := sel size.
     size == 0  ifTrue:[^ ''].
 
-    stream := WriteStream on:''.
-    stream nextPutAll:((resultList at:sel first) asFilename baseName asString).
+    stream := CharacterWriteStream with:((resultList at:sel first) asFilename baseName asString).
     size == 1 ifTrue:[
         fnName := 'ui_menuitem.xpm'.
     ] ifFalse:[
@@ -490,10 +488,10 @@
 !AbstractFileFinderApplicationComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.16 2015-02-27 23:11:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.17 2015-04-22 17:25:52 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.16 2015-02-27 23:11:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.17 2015-04-22 17:25:52 stefan Exp $'
 ! !