--- a/WinWorkstation.st	Mon Jul 24 23:07:41 2017 +0200
+++ b/WinWorkstation.st	Tue Jul 25 12:54:29 2017 +0200
@@ -11373,11 +11373,13 @@
      For compatibility we send a focus-event to that topView"
 
     aBoolean ifFalse:[
-	activeView := nil.
-	self focusOutView:aView.
+        activeView == aView ifTrue:[
+            activeView := nil.
+        ].
+        self focusOutView:aView.
     ] ifTrue:[
-	activeView := aView.
-	self focusInView:aView.
+        activeView := aView.
+        self focusInView:aView.
     ].
 
     "Created: / 28.4.1999 / 14:51:51 / cg"