--- a/FlyByHelp.st	Fri Jan 03 14:52:47 2020 +0100
+++ b/FlyByHelp.st	Thu Jan 09 12:20:23 2020 +0100
@@ -395,12 +395,17 @@
     ]]) ifTrue:[
         Smalltalk isStandAloneApp ifFalse:[
             (#(#'Control' #'Control_L' #'Control_R' #'Ctrl' #'Ctrl_L' #'Ctrl_R') includes:key) ifTrue:[
+                "/ viewsDevice ctrlDown infoPrintCR.
+
                 viewsDevice shiftDown ifTrue:[
                     self openDeveloperMenuFor:(debuggedView ? aView) at:x@y.
                     ^ false
                 ].
                 "/ reopen showing the key
-                "/ Transcript show:'re initialize help: '; showCR:key.
+                DebuggingEvents == true ifTrue:[
+                    ('================================================') infoPrintCR.
+                    ('re initialize help: ',key storeString) infoPrintCR.
+                ].
                 self initiateHelpFor:aView at:(x@y) now:true.
                 ^ false
             ].
@@ -460,9 +465,11 @@
     "/ DebuggingEvents := true
     "/ DebuggingEvents := false
     DebuggingEvents == true ifTrue:[
-        ('%1: KeyRelease view:%2' 
-                bindWith:self className 
-                with:aView) infoPrintCR.
+        ('%1: KeyRelease key:%2 view:%3 current:%4' 
+                bindWith:self className
+                with:key storeString
+                with:aView
+                with:currentHelpView) infoPrintCR.
     ].
     currentHelpView notNil ifTrue:[
         (#(#'Control' #'Control_L' #'Control_R' #'Ctrl' #'Ctrl_L' #'Ctrl_R') includes:key) ifTrue:[
@@ -650,6 +657,8 @@
 
     |p v|
 
+    "/ thisContext fullPrintAll.
+
     "/ lastHelpText := nil.
     self stopHelpDisplayProcess.
     lastHelpText := nil.