--- a/EventMonitor.st	Tue Feb 12 20:48:06 2019 +0100
+++ b/EventMonitor.st	Wed Feb 13 12:52:27 2019 +0100
@@ -454,6 +454,8 @@
 !
 
 buttonPress:button x:x y:y
+    |sensor|
+    
     self showEventTime.
 
     outputStream nextPutAll:'buttonPress x:'.
@@ -462,22 +464,25 @@
     y printOn:outputStream.
     outputStream nextPutAll:' button:'.
     button printOn:outputStream.
-    self sensor shiftDown ifTrue:[
+
+    sensor := self sensor.
+    sensor shiftDown ifTrue:[
         outputStream nextPutAll:' +shift'.
     ].    
-    self sensor ctrlDown ifTrue:[
+    sensor ctrlDown ifTrue:[
         outputStream nextPutAll:' +ctrl'.
     ].    
-    self sensor altDown ifTrue:[
+    sensor altDown ifTrue:[
         outputStream nextPutAll:' +alt'.
     ].    
-    self sensor metaDown ifTrue:[
+    sensor metaDown ifTrue:[
         outputStream nextPutAll:' +meta'.
     ].    
     outputStream cr.
     outputStream flush.
 
     "Modified: / 10-02-2017 / 21:21:48 / cg"
+    "Modified: / 13-02-2019 / 12:51:51 / Claus Gittinger"
 !
 
 buttonRelease:button x:x y:y