--- a/ActiveHelp.st	Sat Jun 28 14:49:18 1997 +0200
+++ b/ActiveHelp.st	Sat Jun 28 15:07:32 1997 +0200
@@ -604,9 +604,20 @@
     "Modified: 28.6.1997 / 14:45:15 / cg"
 ! !
 
+!ActiveHelp methodsFor:'stopping'!
+
+unlisten
+    "stop listening"
+
+    self hideHelp.
+    super unlisten.
+
+    "Modified: 28.6.1997 / 15:07:02 / cg"
+! !
+
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.26 1997-06-28 12:49:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.27 1997-06-28 13:07:32 cg Exp $'
 ! !
 ActiveHelp initialize!