--- a/Tools__CodeView2.st	Tue Sep 05 11:56:26 2017 +0200
+++ b/Tools__CodeView2.st	Tue Sep 05 19:52:36 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
               All Rights Reserved
@@ -3724,11 +3726,20 @@
 "/    ].
 
     (cursorCol ~~ soCol and:[cursorCol ~~ 1]) ifTrue:[
+        |sav|
+
         "
          somewhere in the middle of a line
         "
         self cursorLeft.
-        self deleteCharAtLine:cursorLine col:cursorCol.
+
+        sav := trimBlankLines.
+        trimBlankLines := false.
+        [
+            self deleteCharAtLine:cursorLine col:cursorCol.
+        ] ensure:[
+            trimBlankLines := sav
+        ]
     ] ifFalse:[
         "
          at begin of line - merge with previous line;