--- a/SynchronousWindowSensor.st	Fri May 11 09:22:40 2018 +0200
+++ b/SynchronousWindowSensor.st	Fri May 11 09:24:25 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -150,11 +152,9 @@
 !SynchronousWindowSensor methodsFor:'event processing-private'!
 
 basicPushEvent:anEvent
-    "disptach the event immediately"
+    "dispach the event immediately"
 
-    anEvent timeStamp isNil ifTrue:[
-        anEvent timeStamp:(Timestamp now).
-    ].
+    anEvent ensureTimeStamped.
     WindowGroup lastEventQuerySignal answer:anEvent do:[
         anEvent view dispatchEvent:anEvent
     ].