--- a/VT100TerminalView.st	Mon Apr 26 16:42:53 1999 +0200
+++ b/VT100TerminalView.st	Mon Apr 26 16:43:02 1999 +0200
@@ -336,7 +336,7 @@
             ].
             char ~~ Character tab ifTrue:[
                 char asciiValue ~~ 0 ifTrue:[
-                    Transcript show:'unhandled control key: '; showCR:char storeString.
+                    ('VT100 [info]: unhandled control key: ' , char storeString) infoPrintCR.
                 ].
                 ^ self.
             ]
@@ -567,5 +567,5 @@
 !VT100TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.23 1999-03-26 13:26:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.24 1999-04-26 14:43:02 cg Exp $'
 ! !