--- a/EditTextView.st	Wed Apr 26 18:17:24 2017 +0200
+++ b/EditTextView.st	Thu Apr 27 12:28:35 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -5718,6 +5720,13 @@
     ].
 
     (key == #NonInsertingTab) ifTrue:[
+        ((rawKey == #ShiftTab)
+          and:[self hasSelection
+          and:[selectStyle == #line]]
+        ) ifTrue:[
+            self executekeyboardMacroNamed:#UndentBy4.
+            ^ self.
+        ].
         self unselect. self cursorTab.
         ^ self
     ].
@@ -5733,6 +5742,7 @@
                 ].
                 macroName notNil ifTrue:[
                     self executekeyboardMacroNamed:macroName.
+                    ^ self.
                 ].
             ]
         ].