--- a/WindowGroup.st	Fri Jul 11 08:00:14 2014 +0200
+++ b/WindowGroup.st	Fri Jul 11 14:14:48 2014 +0200
@@ -1141,6 +1141,7 @@
                 LastActiveGroup := nil.
                 [
                     startupAction value.
+                    self showWaitCursorWhenBusyForMillis:400.
                     self eventLoopWhile:[true] onLeave:[]
                 ] ensure:[
                     |dev w app|
@@ -2837,11 +2838,11 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.331 2014-06-24 10:35:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.332 2014-07-11 12:14:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.331 2014-06-24 10:35:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.332 2014-07-11 12:14:48 cg Exp $'
 ! !