--- a/FlyByHelp.st	Fri Sep 07 16:37:06 2018 +0200
+++ b/FlyByHelp.st	Fri Sep 07 16:37:46 2018 +0200
@@ -250,12 +250,15 @@
         key notNil ifTrue:[
             app := aView application.
             app isNil ifTrue:[
+                |topView topViewsHelpSpec|
+                
                 "/ special case for oldStyle Dialog subclasses.
-                aView topView helpSpec notNil ifTrue:[
-                    text := aView topView helpSpec at:key ifAbsent:nil.
+                topView := aView topView.
+                (topViewsHelpSpec := topView helpSpec) notNil ifTrue:[
+                    text := topViewsHelpSpec at:key ifAbsent:nil.
                     text notNil ifTrue:[
                         "/ Transcript showCR:'via topViewspec+helpKey'; showCR:text.
-                        ^ aView topView resources stringWithCRs:text.
+                        ^ topView resources stringWithCRs:text.
                     ].    
                 ].    
                 app := Error handle:[:ex | nil] do:[ aView windowGroup mainGroup application ].
@@ -278,7 +281,7 @@
 
     "Modified: / 09-01-2018 / 17:38:42 / stefan"
     "Modified (format): / 07-06-2018 / 09:51:41 / sr"
-    "Modified: / 11-06-2018 / 09:53:53 / Claus Gittinger"
+    "Modified: / 07-09-2018 / 12:32:04 / Claus Gittinger"
 ! !
 
 !FlyByHelp methodsFor:'queries'!