--- a/ActiveHelp.st	Thu Feb 18 18:27:32 1999 +0100
+++ b/ActiveHelp.st	Fri Feb 19 19:11:30 1999 +0100
@@ -542,13 +542,14 @@
     "return true, if I am interested in aView (either listeningForAll,
      or in my list of apps)"
 
-    |app|
+    |app aViewsTopView|
 
     listeningForAll == true ifTrue:[^ true].
     aView isNil ifTrue:[^ false].
 
-    (applicationsOrTopViewsWithHelp includesIdentical:(aView topView)) ifTrue:[^ true].
-    app := aView topView application.
+    aViewsTopView := aView topView.
+    (applicationsOrTopViewsWithHelp includesIdentical:aViewsTopView) ifTrue:[^ true].
+    app := aViewsTopView application.
     app notNil ifTrue:[
         (applicationsOrTopViewsWithHelp includesIdentical:app) ifTrue:[^ true]
     ].
@@ -781,6 +782,6 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.36 1999-02-15 20:15:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.37 1999-02-19 18:11:30 cg Exp $'
 ! !
 ActiveHelp initialize!