--- a/WindowGroup.st	Wed May 27 16:03:50 2009 +0200
+++ b/WindowGroup.st	Thu May 28 08:49:04 2009 +0200
@@ -2675,9 +2675,9 @@
                 oldCursors keysAndValuesDo:[:view :cursor |
                     view cursor:cursor now:false.
                 ].
-                dev flush
+                dev flush.
+                inWithCursorDoBlock := false.
             ].
-            inWithCursorDoBlock := false.
             rslt
           ]
     ].
@@ -2714,7 +2714,7 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.296 2009-05-27 14:03:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.297 2009-05-28 06:49:04 cg Exp $'
 ! !
 
 WindowGroup initialize!