--- a/AbstractLauncherApplication.st	Thu Dec 02 20:49:05 1999 +0100
+++ b/AbstractLauncherApplication.st	Thu Dec 02 21:16:47 1999 +0100
@@ -309,12 +309,12 @@
 changeViewStyleTo:newStyle
 
     newStyle notNil ifTrue:[
-	self withWaitCursorDo:[
-	    transcript showCR:'change style to ' , newStyle , ' ...'.
-	    View defaultStyle:newStyle asSymbol.
-	].
-	self reopenLauncher.
-	DebugView newDebugger.
+        self withWaitCursorDo:[
+            (transcript ? Transcript) showCR:'change style to ' , newStyle , ' ...'.
+            View defaultStyle:newStyle asSymbol.
+        ].
+        self reopenLauncher.
+        DebugView newDebugger.
     ]
 
 !
@@ -445,12 +445,14 @@
     |oldOrigin contents builder newLauncher|
 
     oldOrigin := self window origin.
-    contents := transcript endEntry; list.
+    transcript notNil ifTrue:[contents := transcript endEntry; list].
     builder := self class openAt:oldOrigin.
     builder window waitUntilVisible.
     builder window origin:oldOrigin.
     newLauncher := builder application.
-    newLauncher transcript list:contents; hideCursor; scrollToBottom; cursorToEnd; showCursor.
+    transcript notNil ifTrue:[
+        newLauncher transcript list:contents; hideCursor; scrollToBottom; cursorToEnd; showCursor.
+    ].
     ^ newLauncher
 
     "Modified: / 4.8.1998 / 17:08:33 / cg"
@@ -469,7 +471,7 @@
 transcript
     "my transcript"
 
-    ^ transcript
+    ^ transcript ifNil:[Transcript current]
 ! !
 
 !AbstractLauncherApplication methodsFor:'startup / release'!
@@ -1046,23 +1048,25 @@
     |list box|
 
     Project notNil ifTrue:[
-	list := Project allInstances.
-	box := ListSelectionBox new.
-	box list:(list collect:[:p | p name]).
-	box title:(resources string:'select a project').
-	box action:[:selection |
-	    |project|
-
-	    project := list detect:[:p | p name = selection] ifNone:[nil].
-	    project isNil ifTrue:[
-		transcript showCR:'no such project.'
-	    ] ifFalse:[
-		project showViews.
-		Project current:project
-	    ]
-	].
-	box showAtPointer.
-	box destroy
+        list := Project allInstances.
+        box := ListSelectionBox new.
+        box list:(list collect:[:p | p name]).
+        box title:(resources string:'select a project').
+        box action:[:selection |
+            |project|
+
+            project := list detect:[:p | p name = selection] ifNone:[nil].
+            project isNil ifTrue:[
+                transcript notNil ifTrue:[
+                    transcript showCR:'no such project.'
+                ]
+            ] ifFalse:[
+                project showViews.
+                Project current:project
+            ]
+        ].
+        box showAtPointer.
+        box destroy
     ]
 !
 
@@ -4825,5 +4829,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.85 1999-12-02 19:49:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.86 1999-12-02 20:16:47 cg Exp $'
 ! !