--- a/NewLauncher.st	Wed Feb 25 17:28:59 2015 +0100
+++ b/NewLauncher.st	Wed Feb 25 18:58:39 2015 +0100
@@ -5397,11 +5397,11 @@
     |pattern|
 
     pattern := Dialog
-		request:('Enter GLOB matchpattern for message text\(Breakpoint if matching text is sent to the Transcript)\\Empty to disable, * for any text.' withCRs)
-		initialAnswer:(Transcript class debugSendersOfMessagePattern).
+                request:('Enter GLOB matchpattern for message text\(Breakpoint if matching text is sent to the Transcript)\\Empty to disable, * for any text.' withCRs)
+                initialAnswer:(TextCollector debugSendersOfMessagePattern).
     pattern isNil ifTrue:[^ self].
 
-    Transcript class debugSendersOfMessagePattern:pattern
+    TextCollector debugSendersOfMessagePattern:pattern
 
     "Created: / 02-02-2012 / 12:05:05 / cg"
 !
@@ -5410,23 +5410,23 @@
     |pattern|
 
     pattern := Dialog
-		request:('Enter GLOB matchpattern for message text\(Trace who sends matching text to the Transcript)\\Empty to disable, * for any.' withCRs)
-		initialAnswer:(Transcript class traceSendersOfMessagePattern).
+                request:('Enter GLOB matchpattern for message text\(Trace who sends matching text to the Transcript)\\Empty to disable, * for any.' withCRs)
+                initialAnswer:(TextCollector traceSendersOfMessagePattern).
     pattern isNil ifTrue:[^ self].
 
-    Transcript class traceSendersOfMessagePattern:pattern
+    TextCollector traceSendersOfMessagePattern:pattern
 
     "Created: / 02-02-2012 / 12:06:10 / cg"
 !
 
 timestampTranscriptMessages
-    ^ Transcript class perform: #timestampMessages ifNotUnderstood:[false]
+    ^ TextCollector perform: #timestampMessages ifNotUnderstood:[false]
 
     "Modified: / 25-07-2013 / 12:16:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 timestampTranscriptMessages:aBoolean
-    ^ Transcript class timestampMessages:aBoolean
+    ^ TextCollector timestampMessages:aBoolean
 ! !
 
 !NewLauncher methodsFor:'user actions-demos'!
@@ -5742,14 +5742,14 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.542 2015-02-25 00:46:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.543 2015-02-25 17:58:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.542 2015-02-25 00:46:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.543 2015-02-25 17:58:39 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: NewLauncher.st,v 1.542 2015-02-25 00:46:54 cg Exp $'
+    ^ '$Id: NewLauncher.st,v 1.543 2015-02-25 17:58:39 cg Exp $'
 ! !