--- a/MCRepositoryBrowser.st	Thu Mar 28 17:23:21 2013 +0100
+++ b/MCRepositoryBrowser.st	Sat Mar 30 22:57:06 2013 +0100
@@ -349,19 +349,16 @@
          (MenuItem
             label: 'Set Target Package...'
             itemValue: setTargetPackage
-            translateLabel: true
           )
          (MenuItem
             label: 'Set Target Namespace...'
             itemValue: setTargetNamespace
-            translateLabel: true
           )
          (MenuItem
             label: '-'
           )
          (MenuItem
-            label: 'Update Changefile'
-            translateLabel: true
+            label: 'Update Changefile when Loading'
             indication: updateChangefileHolder
           )
          )
@@ -507,12 +504,14 @@
          (MenuItem
             label: 'Add Repository...'
             itemValue: repositoryAdd
-            translateLabel: true
+          )
+         (MenuItem
+            label: 'Add Directory Repository...'
+            itemValue: directoryRepositoryAdd
           )
          (MenuItem
             label: 'Add Repository (Expression)...'
             itemValue: repositoryAddFromExpressionString
-            translateLabel: true
           )
          (MenuItem
             label: '-'
@@ -521,7 +520,6 @@
             enabled: hasRepositorySelectedHolder
             label: 'Flush Cache'
             itemValue: repositoryFlushCache
-            translateLabel: true
           )
          (MenuItem
             label: '-'
@@ -530,7 +528,6 @@
             enabled: repositoryIsDirectory
             label: 'Browse Directory'
             itemValue: repositoryBrowseDirectory
-            translateLabel: true
           )
          (MenuItem
             label: '-'
@@ -538,7 +535,6 @@
          (MenuItem
             label: 'Inspect'
             itemValue: repositoryInspect
-            translateLabel: true
           )
          )
         nil
@@ -897,6 +893,18 @@
     "Created: / 20-03-2012 / 17:37:17 / cg"
 !
 
+directoryRepositoryAdd
+    |repStr rep|
+
+    repStr := Dialog requestDirectoryName:'Directory repository to add:'.
+    repStr isEmptyOrNil ifTrue:[^ self].
+
+    rep := MCDirectoryRepository directory:repStr.
+    self addRepository:rep
+
+    "Created: / 29-08-2011 / 12:25:40 / cg"
+!
+
 openDocumentation
     HTMLDocumentView openFullOnDocumentationFile:'tools/misc/monticellobrowser.html'.
 
@@ -906,7 +914,7 @@
 repositoryAdd
     |repStr rep url|
 
-    repStr := Dialog request:'Reporitory to add:'.
+    repStr := Dialog request:'Repository to add (file- or HTTP-URL):'.
     repStr isEmptyOrNil ifTrue:[^ self].
 
     Error handle:[:ex |
@@ -939,7 +947,7 @@
     |repStr rep|
 
     repStr := Dialog 
-                requestText:'Reporitory to add:'
+                requestText:'Repository to add:'
                 initialAnswer:'MCHttpRepository
     location: ''http://www.squeaksource.com/XMLSchemaCodeGen''
     user: ''''
@@ -1201,11 +1209,11 @@
 !MCRepositoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.22 2013-03-25 21:53:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.23 2013-03-30 21:57:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.22 2013-03-25 21:53:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.23 2013-03-30 21:57:06 cg Exp $'
 !
 
 version_SVN