--- a/WindowGroup.st	Fri Mar 16 12:32:23 2018 +0100
+++ b/WindowGroup.st	Tue Mar 20 12:02:05 2018 +0100
@@ -1644,7 +1644,7 @@
 
     <resource: #keyboard (#Escape )>
 
-    |event busyHookBlock busyHookCalled|
+    |event busyHookBlock busyHookCalled modalGroupTopViews|
 
     self processExposeEvents.
 
@@ -1664,7 +1664,10 @@
                 "/ an incoming event for a masterView, 
                 "/ while being blocked by some other modalView.
 
-                modalTop := modalGroup topViews firstOrNil.
+                modalGroupTopViews := modalGroup topViews.  
+                modalGroupTopViews notNil ifTrue:[
+                    modalTop := modalGroupTopViews firstOrNil.
+                ].
 
                 event isKeyEvent ifTrue:[
                     "/ forward keyboard events to my modal