--- a/VT100TerminalView.st	Sun Jul 21 12:41:38 2013 +0200
+++ b/VT100TerminalView.st	Sun Jul 21 12:43:37 2013 +0200
@@ -362,7 +362,9 @@
     (parameters at: 1) == 6 ifTrue:[
         "/ report position
         self endEntry.
-
+        Debug ifTrue:[
+            Transcript showCR:'report terminal type'
+        ].
         inStream nextPut:(Character esc).
         inStream nextPutAll:'[' 
                             , cursorLine printString 
@@ -554,15 +556,14 @@
 !
 
 nextPut:char 
-    " process a character (i.e. the shells output)
-    "
+    " process a character (i.e. from the shell's output)"
 
     |processCharacterReturn|
 
     Debug ifTrue:[
         Transcript                                                       
-            show:state;
-            show:' ';
+            show:'VT100: nextPut - state: '; show:state;
+            show:' got: ';
             showCR:char storeString
     ].
     state == #gotReturn ifTrue:[
@@ -638,7 +639,7 @@
         ].
 
         (char == Character return) ifTrue:[
-            (rangeEndLine notNil and:[rangeEndLine ~~ numberOfLines]) ifTrue:[
+true           " (rangeEndLine notNil and:[rangeEndLine ~~ numberOfLines])" ifTrue:[
                 self endEntry.
                 self cursorToBeginOfLine.
             ] ifFalse:[
@@ -954,6 +955,10 @@
     ].
     self endEntry.
     self cursorToBeginOfLine.
+
+    (char == Character esc) ifTrue:[
+        state := #gotESC.
+    ].
     "/ continue in initial state
     ^ #waitForNextChar
 !
@@ -1021,6 +1026,10 @@
 !VT100TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.49 2013-07-20 10:29:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.50 2013-07-21 10:43:37 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.50 2013-07-21 10:43:37 cg Exp $'
 ! !