--- a/AbstractFileApplicationNoteBookComponent.st	Wed Apr 22 15:58:53 2015 +0200
+++ b/AbstractFileApplicationNoteBookComponent.st	Wed Apr 22 19:21:44 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 }"
+
 ApplicationModel subclass:#AbstractFileApplicationNoteBookComponent
 	instanceVariableNames:'sameFileIndex item type notifyChannel'
 	classVariableNames:''
@@ -233,13 +237,12 @@
 !
 
 getTabStringEnd
-
-" get the tab string from the application list on the class side "
+    " get the tab string from the application list on the class side "
 
     | stream|
 
     self item notNil ifTrue:[
-        stream := WriteStream on:''.
+        stream := CharacterWriteStream new.
         self type = #directoryDescription ifTrue:[
             stream nextPutAll:self fileName directory baseName.
             stream space.
@@ -345,10 +348,10 @@
 !AbstractFileApplicationNoteBookComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileApplicationNoteBookComponent.st,v 1.25 2014-10-25 11:58:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileApplicationNoteBookComponent.st,v 1.26 2015-04-22 17:21:44 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileApplicationNoteBookComponent.st,v 1.25 2014-10-25 11:58:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileApplicationNoteBookComponent.st,v 1.26 2015-04-22 17:21:44 stefan Exp $'
 ! !