--- a/MCRepositoryBrowser.st	Mon Aug 29 08:13:00 2011 +0200
+++ b/MCRepositoryBrowser.st	Mon Aug 29 08:22:41 2011 +0200
@@ -573,16 +573,20 @@
 versionBrowser
 
     | version snapshot |
-    version := self selectedVersionAsMCVersion.
-    version ifNil:[^self].
-    snapshot := version snapshot.
-    (Tools::ChangeSetBrowser2 
-        on: snapshot asChangeSet
-        label: version info name)
-        beTwoColumn;
-        open
+
+    self withWaitCursorDo:[
+        version := self selectedVersionAsMCVersion.
+        version ifNil:[^self].
+        snapshot := version snapshot.
+        (Tools::ChangeSetBrowser2 
+            on: snapshot asChangeSet
+            label: version info name)
+            beTwoColumn;
+            open
+    ].
 
     "Modified: / 04-08-2011 / 19:03:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 29-08-2011 / 08:21:53 / cg"
 !
 
 versionInspect
@@ -596,23 +600,28 @@
 
 versionLoad
 
-     | entry |
+    | entry |
+
     entry := self selectedVersionHolder value.
     entry ifNotNil:[self versionLoad: entry asMCVersion into: PackageId noProjectID].
 
     "Modified: / 09-11-2010 / 13:26:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 29-08-2011 / 08:22:17 / cg"
 !
 
 versionLoad: version into: package
 
-    MCStXPackageQuery answer: package do: [
-        MCInteractiveLoadingQuery answer: true do:[
-            version load
-        ]
+    self withWaitCursorDo:[
+        MCStXPackageQuery answer: package do: [
+            MCInteractiveLoadingQuery answer: true do:[
+                version load
+            ]
+        ].
     ].
 
     "Created: / 09-11-2010 / 13:25:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 06-03-2011 / 20:44:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 29-08-2011 / 08:22:30 / cg"
 !
 
 versionLoadIntoPackage
@@ -651,11 +660,11 @@
 !MCRepositoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.5 2011-08-29 06:12:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.6 2011-08-29 06:22:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.5 2011-08-29 06:12:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.6 2011-08-29 06:22:41 cg Exp $'
 !
 
 version_SVN