--- a/ActiveHelp.st	Sat Oct 26 18:49:55 1996 +0200
+++ b/ActiveHelp.st	Sat Oct 26 18:57:15 1996 +0200
@@ -278,7 +278,7 @@
 pointerEnter:state x:x y:y view:aView
     "handle pointer entering a view; setup timeOut to show help"
 
-    |text p|
+    |p|
 
     showProcess notNil ifTrue:[
         p := showProcess. showProcess := nil.
@@ -314,7 +314,7 @@
      #helpTextFor:at: or #helpTextFor: message ends this search and the
      returned string is returned."
 
-    |model text view org found v sv|
+    |model text view v sv|
 
     view := aView.
     (model := aView model) notNil ifTrue:[
@@ -527,6 +527,6 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.17 1996-10-15 23:36:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.18 1996-10-26 16:56:48 cg Exp $'
 ! !
 ActiveHelp initialize!