--- a/keyboardMacros.rc	Wed Dec 02 16:12:03 2009 +0100
+++ b/keyboardMacros.rc	Fri Dec 04 14:22:22 2009 +0100
@@ -99,6 +99,9 @@
 			line notEmpty ifTrue:[
 			    line := ''    '' , line.
 			    self withoutRedrawAt:lineNr put:line.
+			    line1 = (line2-1) ifTrue:[
+				self cursorRight:4
+			    ].
 			]
 		    ]
 		].
@@ -138,6 +141,9 @@
 			    (line startsWith:''    '') ifTrue:[
 				line := line copyFrom:5.
 				self withoutRedrawAt:lineNr put:line.
+				line1 = (line2-1) ifTrue:[
+				    cursorCol > 4 ifTrue:[ self cursorLeft:4 ]
+				].
 			    ]
 			]
 		    ]
@@ -177,6 +183,9 @@
 			line notEmpty ifTrue:[
 			    line := '' '' , line.
 			    self withoutRedrawAt:lineNr put:line.
+			    line1 = (line2-1) ifTrue:[
+				self cursorRight:1
+			    ].
 			]
 		    ]
 		].
@@ -216,6 +225,9 @@
 			    (line startsWith:'' '') ifTrue:[
 				line := line copyFrom:2.
 				self withoutRedrawAt:lineNr put:line.
+				line1 = (line2-1) ifTrue:[
+				    cursorCol > 1 ifTrue:[ self cursorLeft:1 ]
+				].
 			    ]
 			]
 		    ]