--- a/NewLauncher.st	Wed Sep 04 21:37:43 2002 +0200
+++ b/NewLauncher.st	Wed Sep 04 21:51:56 2002 +0200
@@ -3702,7 +3702,7 @@
         ]
     ].
 
-    transcript := (builder componentAt: #transcriptView) subViews first.
+    transcript := (self componentAt: #transcriptView) subViews first.
 
     isMainLauncher ifTrue:[
         transcript beTranscript.
@@ -3997,5 +3997,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.257 2002-08-23 10:22:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.258 2002-09-04 19:51:56 cg Exp $'
 ! !