--- a/WindowSensor.st	Fri Dec 14 11:56:42 2001 +0100
+++ b/WindowSensor.st	Fri Dec 14 16:05:23 2001 +0100
@@ -2325,13 +2325,10 @@
      (by sending arbitrary events, which leads to a message sent,
       when the target windowGroups process is rescheduled)."
 
-    |v|
-
-    v := anEvent view.
     self criticalUserEventQueueAccess:[
-	mouseAndKeyboard addLast:anEvent.
+        mouseAndKeyboard addLast:anEvent.
     ].
-    self notifyEventArrival:v
+    self notifyEventArrival:(anEvent view)
 
     "Created: / 18.9.1995 / 22:37:57 / claus"
     "Modified: / 18.6.1998 / 09:27:56 / cg"
@@ -3126,6 +3123,6 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.198 2001-11-12 18:36:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.199 2001-12-14 15:05:23 cg Exp $'
 ! !
 WindowSensor initialize!