--- a/VT100TerminalView.st	Mon Jul 27 14:01:26 1998 +0200
+++ b/VT100TerminalView.st	Mon Jul 27 14:01:54 1998 +0200
@@ -423,7 +423,7 @@
             ^ self endOfSequence
         ].
         char == $B ifTrue: [
-            self doCursorLeft:((parameters at: 1) max: 1).
+            self doCursorDown:((parameters at: 1) max: 1).
             ^ self endOfSequence
         ].
         char == $C ifTrue: [
@@ -431,7 +431,7 @@
             ^ self endOfSequence
         ].
         char == $D ifTrue: [
-            self doCursorDown:((parameters at: 1) max: 1).
+            self doCursorLeft:((parameters at: 1) max: 1).
             ^ self endOfSequence
         ].
         char == $H ifTrue: [
@@ -515,7 +515,7 @@
 
     self doNothing
 
-    "Modified: / 21.7.1998 / 20:11:30 / cg"
+    "Modified: / 27.7.1998 / 13:55:49 / cg"
 ! !
 
 !VT100TerminalView methodsFor:'queries'!
@@ -529,5 +529,5 @@
 !VT100TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.19 1998-07-21 18:12:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.20 1998-07-27 12:01:54 cg Exp $'
 ! !