--- a/EditTextView.st	Thu Aug 09 10:29:58 2018 +0200
+++ b/EditTextView.st	Thu Aug 09 10:34:21 2018 +0200
@@ -5496,7 +5496,7 @@
     (key == #Redo) ifTrue:[self redo. ^self].
 
     self learnMode ifTrue:[
-        event := WindowGroup lastEventQuerySignal query.
+        event := WindowGroup lastEvent.
         learnedMacro add:event.
     ].
 
@@ -5512,7 +5512,7 @@
     ].
 
     event isNil ifTrue:[
-        event := WindowGroup lastEventQuerySignal query.
+        event := WindowGroup lastEvent.
     ].
     shiftPressed := event hasShift.
     ctrlPressed := event hasCtrl and:[(event rawKey asString startsWith:'Ctrl') not].
@@ -5913,7 +5913,7 @@
     "Modified: / 06-02-1998 / 11:59:59 / stefan"
     "Modified: / 26-09-2013 / 17:52:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 28-04-2017 / 09:25:22 / cg"
-    "Modified: / 16-06-2018 / 00:47:47 / Claus Gittinger"
+    "Modified: / 09-08-2018 / 10:32:50 / Claus Gittinger"
 !
 
 executeKeyboardMacro:cmdMacro