--- a/SynchronousWindowSensor.st	Wed Nov 25 19:55:22 2015 +0100
+++ b/SynchronousWindowSensor.st	Thu Nov 26 17:18:27 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -152,6 +154,9 @@
 basicPushEvent:anEvent
     "disptach the event immediately"
 
+    anEvent timeStamp isNil ifTrue:[
+        anEvent timeStamp:(Timestamp now).
+    ].
     WindowGroup lastEventQuerySignal answer:anEvent do:[
         anEvent view dispatchEvent:anEvent
     ].
@@ -160,9 +165,7 @@
 pushDamageEvent:anEvent
     "disptach the event immediately"
 
-    WindowGroup lastEventQuerySignal answer:anEvent do:[
-        anEvent view dispatchEvent:anEvent
-    ].
+    self basicPushEvent:anEvent
 !
 
 pushUserEvent:selector for:anyObject withArguments:argList
@@ -252,6 +255,6 @@
 !SynchronousWindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SynchronousWindowSensor.st,v 1.32 2015-03-03 10:38:49 cg Exp $'
+    ^ '$Header$'
 ! !