--- a/MCRepositoryBrowser.st	Wed Sep 07 15:04:18 2011 +0200
+++ b/MCRepositoryBrowser.st	Wed Sep 07 15:05:04 2011 +0200
@@ -394,6 +394,15 @@
          (MenuItem
             label: '-'
           )
+         (MenuItem   
+            enabled: hasRepositorySelectedHolder
+            label: 'Flush Cache'
+            itemValue: repositoryFlushCache
+            translateLabel: true
+          )
+         (MenuItem
+            label: '-'
+          )
          (MenuItem
             enabled: repositoryIsDirectory
             label: 'Browse Directory'
@@ -404,6 +413,8 @@
         nil
         nil
       )
+
+    "Modified: / 07-09-2011 / 15:00:57 / cg"
 !
 
 versionsMenu
@@ -497,6 +508,16 @@
 
 !MCRepositoryBrowser methodsFor:'aspect-queries'!
 
+hasRepositorySelectedHolder
+    ^ BlockValue
+        with:[:h | h value notNil]
+        argument:(self selectedRepositoryHolder)
+
+    "Created: / 13-10-2010 / 17:08:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-09-2011 / 13:14:17 / cg"
+    "Created: / 07-09-2011 / 15:00:44 / cg"
+!
+
 hasVersionSelectedAndOperatingSystemIsWindowsHolder
     ^[self hasVersionSelectedHolder value
       and:[ OperatingSystem isMSWINDOWSlike ]]
@@ -515,7 +536,8 @@
 
 repositoryIsDirectory
     ^ BlockValue
-        with:[:h | h value repository isKindOf: MCDirectoryRepository ]
+        with:[:h | h value notNil
+                   and:[ h value repository isKindOf: MCDirectoryRepository ]]
         argument:[ self selectedRepositoryHolder ]
 
     "Created: / 31-08-2011 / 09:08:54 / cg"
@@ -672,6 +694,14 @@
     "Created: / 31-08-2011 / 09:16:33 / cg"
 !
 
+repositoryFlushCache
+    "flush the repository cache - useful only in case of an aborted file load"
+
+    self selectedRepositoryHolder value repository flushCache
+
+    "Created: / 07-09-2011 / 15:02:21 / cg"
+!
+
 setTargetNamespace
     "specify an st/x namespace to be used as default"
 
@@ -784,11 +814,13 @@
 
     entry := self selectedVersionHolder value.
     entry notNil ifTrue:[
-        self versionLoad: entry asMCVersion into:(targetPackage ? PackageId noProjectID)
+        self withWaitCursorDo:[
+            self versionLoad: entry asMCVersion into:(targetPackage ? PackageId noProjectID)
+        ]
     ].
 
     "Modified: / 09-11-2010 / 13:26:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (comment): / 07-09-2011 / 12:45:31 / cg"
+    "Modified: / 07-09-2011 / 14:51:57 / cg"
 !
 
 versionLoad: version into: package
@@ -855,11 +887,11 @@
 !MCRepositoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.9 2011-09-07 12:04:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.10 2011-09-07 13:05:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.9 2011-09-07 12:04:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.10 2011-09-07 13:05:04 cg Exp $'
 !
 
 version_SVN