--- a/ActiveHelp.st	Tue Jan 28 04:28:34 2020 +0000
+++ b/ActiveHelp.st	Thu Jan 30 09:39:58 2020 +0100
@@ -481,6 +481,7 @@
         ('%1: Motion view:%2' bindWith:self className with:aView) infoPrintCR.
     ].
     "/ Debugging := true
+    "/ Debugging := false
     buttonAndModifierState == 0 ifTrue:[
 "/        realViewUnderCursor := aView device viewFromPoint:(aView pointerPosition).
 "/        realP := aView device translatePoint:(x@y) fromView:aView toView:realViewUnderCursor.
@@ -652,11 +653,11 @@
      #helpTextFor:at: or #helpTextFor: message ends this search and the
      returned string is returned."
 
-    |model app1 app2 text v sv topView domainPointOrNil|
+    |t model app1 app2 text v sv topView domainPointOrNil|
 
-    (aView transformation notNil 
+    ((t := aView transformation) notNil 
     and:[aDevicePointOrNil notNil]) ifTrue:[
-        domainPointOrNil := aView transformation applyInverseTo:aDevicePointOrNil.
+        domainPointOrNil := t applyInverseTo:aDevicePointOrNil.
     ] ifFalse:[
         domainPointOrNil := aDevicePointOrNil.
     ].