--- a/WindowGroup.st	Thu Jul 12 18:43:32 2012 +0200
+++ b/WindowGroup.st	Tue Jul 17 10:45:07 2012 +0200
@@ -2283,6 +2283,8 @@
         myProcess := nil.
     ].
 
+    inWithCursorDoBlock := false.
+
     "throw away old events"
     mySensor notNil ifTrue:[mySensor reinitialize]
 
@@ -2741,11 +2743,11 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.312 2012-04-27 13:34:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.313 2012-07-17 08:45:07 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.312 2012-04-27 13:34:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.313 2012-07-17 08:45:07 stefan Exp $'
 ! !
 
 WindowGroup initialize!