diff --git a/src/toolsrc/ed.pla b/src/toolsrc/ed.pla
index df651e2..6b5fb86 100755
--- a/src/toolsrc/ed.pla
+++ b/src/toolsrc/ed.pla
@@ -1455,7 +1455,11 @@ def editmode#0
                 undentsel
 				if not (flags & selection)
 					cursoff
-					autoindent(txtlinbuf=>[cursrow])
+                    if not ^(txtlinbuf=>[cursrow])
+                        curshpos((curscol - 2) & $FFFE)
+                    else
+                        autoindent(txtlinbuf=>[cursrow])
+                    fin
 					curson
 				fin
                 break