--- a/WindowGroup.st	Mon Feb 08 12:35:45 2016 +0100
+++ b/WindowGroup.st	Mon Feb 08 13:59:11 2016 +0100
@@ -1494,12 +1494,10 @@
                             "/ This keeps modalBoxes visible
                             "/ (not needed with X, where the windowManager does it for us)
                             (g sensor hasConfigureEventFor:mainView) ifTrue:[
-                                topViews size > 0 ifTrue:[
-                                    topViews first shown ifTrue:[
-                                        topViews first raiseDeiconified
-                                    ].
-                                ]
-                            ]
+                                (topViews size ~~ 0 and:[topViews first shown]) ifTrue:[
+                                    topViews first raiseDeiconified
+                                ].
+                            ].
                         ].
                         g processEventsWithModalGroup:self.
                     ]