--- a/SimpleView.st	Fri Nov 11 17:14:50 2016 +0100
+++ b/SimpleView.st	Fri Nov 11 23:46:05 2016 +0100
@@ -11260,7 +11260,8 @@
      This makes any interaction with the current window impossible -
      however, other views (in other windowgroups) still work."
 
-    |tops mainView previousGroup mainGroup cursorChanged isPopup makeTransient transientFor|
+    |tops mainView previousGroup mainGroup cursorChanged 
+     isPopup inSystemProcess makeTransient transientFor|
 
     StandardSystemView cancelAutoRaise.
 
@@ -11274,7 +11275,7 @@
     "/ (so the handler sees me with a wGroup, sensor etc).
     "/ this allows for the handler to enqueue an event,
     "/ or to add event hooks.
-    Processor activeProcessIsSystemProcess ifTrue:[
+    (inSystemProcess := Processor activeProcessIsSystemProcess) ifTrue:[
         "
          put myself into the modal group, let it handle events for
          me as well. This is only a half way solution, since the view
@@ -11292,6 +11293,7 @@
         "/ create a new window group put myself into it
         windowGroup := self windowGroupClass new.
         windowGroup
+            setProcess:Processor activeProcess;
             addTopView:self;
             setPreviousGroup:previousGroup.
 
@@ -11356,7 +11358,7 @@
 
     self raise.
 
-    Processor activeProcessIsSystemProcess ifTrue:[
+    inSystemProcess ifTrue:[
         self realize
     ] ifFalse:[
         "