--- a/FileSelectionBrowser.st	Wed Apr 11 15:56:59 2001 +0200
+++ b/FileSelectionBrowser.st	Wed Apr 11 17:54:18 2001 +0200
@@ -348,6 +348,19 @@
      #(#Menu
         #(
          #(#MenuItem
+            #label: 'Goto Home Directory'
+            #translateLabel: true
+            #value: #menuGotoHomeDirectory
+          )
+         #(#MenuItem
+            #label: 'Goto Default Directory'
+            #translateLabel: true
+            #value: #menuGotoDefaultDirectory
+          )
+         #(#MenuItem
+            #label: '-'
+          )
+         #(#MenuItem
             #label: 'Create directory...'
             #translateLabel: true
             #value: #menuCreateDirectory
@@ -508,6 +521,14 @@
     self menuUpdate
 !
 
+menuGotoDefaultDirectory
+    self selectionOfDirectory value:(Filename defaultDirectory pathName)
+!
+
+menuGotoHomeDirectory
+    self selectionOfDirectory value:(Filename homeDirectory pathName)
+!
+
 menuUpdate
     (self builder componentAt:#directoryTreeView) monitorCycle.
 !