--- a/TextCollector.st	Fri May 19 18:41:01 1995 +0200
+++ b/TextCollector.st	Tue Jun 06 06:16:07 1995 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.17 1995-05-03 00:38:09 claus Exp $
+$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.18 1995-06-06 04:15:23 claus Exp $
 '!
 
 !TextCollector class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.17 1995-05-03 00:38:09 claus Exp $
+$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.18 1995-06-06 04:15:23 claus Exp $
 "
 !
 
@@ -103,7 +103,7 @@
 newTranscript
     "create and open a new transcript."
 
-    |topView transcript f v fg bg cFg cBg lines cols|
+    |topView transcript f v lines cols|
 
     topView := StandardSystemView label:'Transcript' minExtent:(100 @ 100).
 
@@ -213,13 +213,13 @@
     "
     self destroyAction:[Smalltalk at:#Transcript put:Stderr].
 
-    fg := StyleSheet colorAt:'transcriptForegroundColor' default:self foregroundColor.
-    bg := StyleSheet colorAt:'transcriptBackgroundColor' default:self backgroundColor.
+    fg := styleSheet colorAt:'transcriptForegroundColor' default:self foregroundColor.
+    bg := styleSheet colorAt:'transcriptBackgroundColor' default:self backgroundColor.
     self foregroundColor:fg backgroundColor:bg.
     self viewBackground:bg.
 
-    cFg := StyleSheet colorAt:'transcriptCursorForegroundColor' default:bg.
-    cBg := StyleSheet colorAt:'transcriptCursorBackgroundColor' default:fg.
+    cFg := styleSheet colorAt:'transcriptCursorForegroundColor' default:bg.
+    cBg := styleSheet colorAt:'transcriptCursorBackgroundColor' default:fg.
     self cursorForegroundColor:cFg backgroundColor:cBg. 
 
     "self lineLimit:1000. " "or whatever you think makes sense"