--- a/FlyByHelp.st	Wed Nov 02 19:23:59 2016 +0100
+++ b/FlyByHelp.st	Thu Nov 03 13:22:11 2016 +0100
@@ -418,6 +418,9 @@
         self hideHelp
     ].
 
+    Transcript showCR:helpTextShown storeString.
+    helpTextShown isEmptyOrNil ifTrue:[^ self].
+    
     org := view originRelativeTo:nil.
     currentFrame := org extent:view extent.
     org := org + (view extent // 2).