--- a/AbstractFileBrowser.st	Mon Dec 26 10:26:02 2016 +0000
+++ b/AbstractFileBrowser.st	Thu Dec 29 00:19:01 2016 +0000
@@ -1581,6 +1581,11 @@
             itemValue: doGotoSmalltalkDirectory
           )
          (MenuItem
+            enabled: enableGotoSmalltalkWorkspaceDirectory
+            label: 'Smalltalk Workspace Directory'
+            itemValue: doGotoSmalltalkWorkspaceDirectory
+          )
+         (MenuItem
             enabled: enableGotoTempDirectory
             label: 'Smalltalk Temp Directory'
             itemValue: doGotoTempDirectory
@@ -3599,6 +3604,10 @@
     ^ self aspectFor:#enableGotoSmalltalkDirectory ifAbsent:[ true asValue ].
 !
 
+enableGotoSmalltalkWorkspaceDirectory
+    ^ self aspectFor:#enableGotoSmalltalkWorkspaceDirectory ifAbsent:[ true asValue ].
+!
+
 enableGotoTempDirectory
     ^ self aspectFor:#enableGotoTempDirectory ifAbsent:[ true asValue ].
 
@@ -5550,6 +5559,10 @@
     self gotoFile:(self smalltalkDirectory).
 !
 
+doGotoSmalltalkWorkspaceDirectory
+    self gotoFile:(UserPreferences current workspaceDirectory).
+!
+
 doGotoTempDirectory
     self gotoFile:(self tempDirectory).