--- a/DirectoryTreeBrowser.st	Mon Sep 30 16:53:27 2002 +0200
+++ b/DirectoryTreeBrowser.st	Mon Sep 30 18:39:48 2002 +0200
@@ -840,7 +840,7 @@
 
             (key == #CursorLeft) ifTrue:[
                 "go to last selection in selection history"
-                (self treeSelectionHolder value includes:1) ifTrue:[
+                ((self treeSelectionHolder value includes:1) and:[(self fileList at:1) isExpanded not]) ifTrue:[
                     self doGoDirectoryUp.
                     ^ true
                 ] ifFalse:[
@@ -1097,5 +1097,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.5 2002-09-30 14:46:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.6 2002-09-30 16:39:12 penk Exp $'
 ! !