--- a/Event.st	Tue May 08 12:49:27 2018 +0200
+++ b/Event.st	Fri May 11 09:22:40 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2009 by eXept Software AG
               All Rights Reserved
@@ -57,6 +59,15 @@
 
 !Event methodsFor:'accessing'!
 
+ensureTimeStamped
+    "ensure that I have a timestamp; 
+     If I have none (yet), add one"
+
+    timeStamp isNil ifTrue:[
+        timeStamp := Timestamp now.
+    ].
+!
+
 target
     "return the target, for which the event is for"