--- a/WindowGroup.st	Sat Mar 18 16:37:04 2017 +0100
+++ b/WindowGroup.st	Sat Mar 18 16:41:07 2017 +0100
@@ -1125,7 +1125,7 @@
     ].
     [
         self realizeTopViews.
-        self eventLoopWhile:checkBlock onLeave:[]
+        self eventLoopWhile:checkBlock onLeave:nil
     ] ensure:[
         mainGroup notNil ifTrue:[
             "/ tell the other group, that some modal dialog has closed down.
@@ -1165,6 +1165,7 @@
     "Created: / 10-12-1995 / 14:14:26 / cg"
     "Modified: / 13-11-2016 / 17:19:16 / cg"
     "Modified (format): / 14-11-2016 / 10:24:03 / cg"
+    "Modified: / 17-03-2017 / 18:54:42 / stefan"
 !
 
 startupWith:startupAction
@@ -1176,7 +1177,7 @@
       the caller - which may make a difference in case of errors and/or
       blocking operations ...]"
 
-    |dev invokingApp|
+    |invokingApp|
 
     previousGroup := nil.
 
@@ -1192,7 +1193,7 @@
                 [
                     startupAction value.
                     self showWaitCursorWhenBusyForMillis:400.
-                    self eventLoopWhile:[true] onLeave:[]
+                    self eventLoopWhile:true onLeave:nil.
                 ] ensure:[
                     |dev w app|
 
@@ -1235,17 +1236,18 @@
 
         "/ allow for the currently active application,
         "/ to hook on new-application process creation.
-        (invokingApp := self class activeMainApplication) notNil ifTrue:[
+        invokingApp := self class activeMainApplication.
+        invokingApp notNil ifTrue:[
             invokingApp postApplicationProcessCreate:myProcess windowGroup:self.
+            invokingApp:= nil.  "/ to avoid dangling references via blocks home context.
         ].
-        dev := invokingApp:= nil.  "/ to avoid dangling references via blocks home context.
 
         myProcess resume.
     ]
 
     "Created: / 24-07-1997 / 12:52:04 / cg"
     "Modified: / 17-09-2007 / 10:59:34 / cg"
-    "Modified: / 31-01-2017 / 21:45:42 / stefan"
+    "Modified: / 17-03-2017 / 16:58:40 / stefan"
 !
 
 unhideTopViews
@@ -1358,7 +1360,9 @@
     "loop executed by windowGroup process;
      wait-for and process events forever"
 
-   self eventLoopWhile:[true] onLeave:[]
+   self eventLoopWhile:true onLeave:nil
+
+    "Modified: / 17-03-2017 / 18:53:47 / stefan"
 !
 
 eventLoopWhile:aBlock onLeave:cleanupActions
@@ -2435,7 +2439,7 @@
     "ask my topView for the processName, and
      optionally append the displayName (if it's not the default)"
 
-    topViews size ~~ 0 ifTrue:[
+    topViews notEmptyOrNil ifTrue:[
         top := topViews first.
         nm := top processName.
 
@@ -2455,6 +2459,7 @@
     ].
 
     "Modified (format): / 13-02-2017 / 20:34:28 / cg"
+    "Modified: / 17-03-2017 / 16:55:19 / stefan"
 ! !
 
 !WindowGroup methodsFor:'keyboard control'!