--- a/ActiveHelp.st	Thu Apr 21 06:45:05 2016 +0200
+++ b/ActiveHelp.st	Wed May 04 10:55:09 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -294,6 +292,18 @@
     "Modified: / 10-11-2010 / 12:29:44 / cg"
 ! !
 
+!ActiveHelp class methodsFor:'snapshots'!
+
+preSnapshot
+    "Sent by ObjectMemory to all classes, before a snapshot is written."
+
+    TheOneAndOnlyHelpListener notNil ifTrue:[ 
+        TheOneAndOnlyHelpListener hideHelp
+    ].
+
+    "Created: / 04-05-2016 / 10:33:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !ActiveHelp class methodsFor:'start & stop'!
 
 start

--- a/FlyByHelp.st	Thu Apr 21 06:45:05 2016 +0200
+++ b/FlyByHelp.st	Wed May 04 10:55:09 2016 +0200
@@ -328,7 +328,7 @@
 
     "/ lastHelpText := nil.
     self stopHelpDisplayProcess.
-    lastHelpText := nil.
+    lastHelpText := lastHelpWidget := nil.
 
     currentHelpView notNil ifTrue:[
         [
@@ -346,7 +346,8 @@
         p terminate.
     ]
 
-    "Modified: 28.6.1997 / 14:03:50 / cg"
+    "Modified: / 28-06-1997 / 14:03:50 / cg"
+    "Modified: / 04-05-2016 / 10:36:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 showHelp:aHelpText for:view
@@ -476,5 +477,10 @@
 
 version_CVS
     ^ '$Header$'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !