--- a/ActiveHelp.st	Wed Nov 19 20:56:18 2014 +0100
+++ b/ActiveHelp.st	Thu Nov 20 17:58:25 2014 +0100
@@ -250,6 +250,11 @@
 
     ^ TheOneAndOnlyHelpListener
 
+    "
+     ActiveHelp currentHelpListener
+     FlyByHelp currentHelpListener
+    "
+
     "Created: 28.6.1997 / 13:59:44 / cg"
 !
 
@@ -645,6 +650,9 @@
 
     listeningForAll == true ifTrue:[^ true].
 
+    applicationsOrTopViewsWithHelp isNil ifTrue:[
+        applicationsOrTopViewsWithHelp := WeakIdentitySet new.
+    ].
     (applicationsOrTopViewsWithHelp includesIdentical:aViewsTopView) ifTrue:[^ true].
     app := aViewsTopView application.
     app notNil ifTrue:[
@@ -808,7 +816,7 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.80 2014-06-16 13:24:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.81 2014-11-20 16:58:25 cg Exp $'
 ! !