--- a/EventMonitor.st	Thu Aug 09 10:34:23 2018 +0200
+++ b/EventMonitor.st	Thu Aug 09 10:35:23 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
               All Rights Reserved
@@ -599,7 +601,7 @@
             s := s , ' untranslated key:' , untranslatedKey storeString
         ].
     ].
-    rawKey := (WindowGroup lastEventQuerySignal query) rawKey.
+    rawKey := (WindowGroup lastEvent) rawKey.
     s := s , ' rawKey:' , rawKey storeString.
 
     s printOn:outputStream.
@@ -612,6 +614,7 @@
     outputStream cr.
 
     "Modified: / 04-10-2006 / 13:12:07 / cg"
+    "Modified: / 09-08-2018 / 10:31:33 / Claus Gittinger"
 !
 
 keyRelease:key x:x y:y