VT100TerminalView.st
changeset 6183 9370e384470b
parent 6124 7bcfc51a71b7
--- a/VT100TerminalView.st	Sat Nov 02 01:26:10 2019 +0100
+++ b/VT100TerminalView.st	Fri Nov 08 20:41:43 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1998 by eXept Software AG
               All Rights Reserved
@@ -633,14 +631,16 @@
         "/ report terminal type
         self endEntry.
         Debug ifTrue:[ Transcript showCR:'report terminal type'].
-        inStream nextPut:(Character esc).
-        inStream nextPut:$[. 
-        inStream nextPut:$?. 
-        inStream nextPut:$1. 
-        inStream nextPut:$;. 
-        inStream nextPut:$1. 
-        inStream nextPut:$0. 
-        inStream nextPut:$c. 
+        inStream notNil ifTrue:[
+            inStream nextPut:(Character esc).
+            inStream nextPut:$[. 
+            inStream nextPut:$?. 
+            inStream nextPut:$1. 
+            inStream nextPut:$;. 
+            inStream nextPut:$1. 
+            inStream nextPut:$0. 
+            inStream nextPut:$c.
+        ].
         ^ self
     ].