--- a/WindowGroup.st	Wed Oct 31 14:36:29 2012 +0100
+++ b/WindowGroup.st	Wed Oct 31 14:41:38 2012 +0100
@@ -2397,9 +2397,11 @@
 !WindowGroup methodsFor:'queries'!
 
 anyViewHasFocus
+    |focusVw|
+
     ^ graphicsDevice notNil
-    and:[ graphicsDevice focusView notNil
-    and:[ graphicsDevice focusView windowGroup == self ]]
+    and:[ (focusVw := graphicsDevice focusView) notNil
+    and:[ focusVw windowGroup == self ]]
 !
 
 isPopUp
@@ -2763,11 +2765,11 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.314 2012-07-27 07:44:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.315 2012-10-31 13:41:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.314 2012-07-27 07:44:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.315 2012-10-31 13:41:38 cg Exp $'
 ! !
 
 WindowGroup initialize!