--- a/DirectoryTreeBrowser.st	Thu Nov 30 14:35:51 2017 +0100
+++ b/DirectoryTreeBrowser.st	Thu Nov 30 14:51:26 2017 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -1054,7 +1056,8 @@
      Return true, if I have eaten the event"
 
     <resource: #keyboard (#CursorLeft #FocusPrevious #FocusNext
-                          #Cut #Copy #Delete #Replace #Paste )>
+                          #Cut #Copy #Delete #Replace #Paste 
+                          #BackSpace)>
 
     |focusView key rawKey|
 
@@ -1096,7 +1099,7 @@
         self doCopy.
         ^ true
     ].
-    (key == #Delete) ifTrue:[
+    ((key == #Delete) or:[ key == #BackSpace ]) ifTrue:[
         self doDelete.
         ^ true
     ].