--- a/AbstractFileBrowser.st	Mon Sep 30 20:09:19 2002 +0200
+++ b/AbstractFileBrowser.st	Tue Oct 01 09:35:37 2002 +0200
@@ -1958,6 +1958,7 @@
                     self dirHistory addFile:dir.
                 ].
             ].
+            self enableHome value:((newDirectories includes:(Filename homeDirectory))not).
             self enableForward value:self canForward.
             self enableBack value:self canBack.
         ].
@@ -4393,5 +4394,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.3 2002-09-27 15:22:57 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.4 2002-10-01 07:35:37 penk Exp $'
 ! !