--- a/FileApplicationNoteBook.st	Sat Nov 15 16:58:45 2014 +0100
+++ b/FileApplicationNoteBook.st	Tue Nov 18 15:23:44 2014 +0100
@@ -389,7 +389,7 @@
         ].
     ].
     string := anAppl getTabString.
-    tabItem := Text fromString:string.
+    tabItem := Text string:string.
 
     iconOrNil := anAppl getTabIcon.
     iconOrNil notNil ifTrue:[
@@ -675,7 +675,7 @@
     ].
     self listOfApplications add:anApplication.
 
-    tabItem := Text fromString:(anApplication getTabString).
+    tabItem := Text string:(anApplication getTabString).
     iconOrNil := anApplication getTabIcon.
     iconOrNil notNil ifTrue:[
         tabItem := LabelAndIcon icon:iconOrNil string:tabItem.
@@ -700,7 +700,7 @@
     stream nextPutAll:text.
     stream space.
     stream nextPutAll:aString.
-    self privateTabList at:index put:(Text fromString:(stream contents)).
+    self privateTabList at:index put:(Text string:(stream contents)).
     stream close.
 !
 
@@ -711,7 +711,7 @@
     index := self getIndexFor:anAppl.
     index isNil ifTrue:[ ^ self].
 
-    text := Text fromString:aString.
+    text := Text string:aString.
 
     tabItem := self privateTabList at:index.
     tabItem class == LabelAndIcon ifTrue:[
@@ -7472,10 +7472,10 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.306 2014-11-14 15:00:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.307 2014-11-18 14:23:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.306 2014-11-14 15:00:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.307 2014-11-18 14:23:44 cg Exp $'
 ! !