--- a/ActiveHelp.st	Tue Jan 17 13:12:52 2006 +0100
+++ b/ActiveHelp.st	Fri Jan 20 15:52:57 2006 +0100
@@ -401,13 +401,11 @@
      #helpTextFor:at: or #helpTextFor: message ends this search and the
      returned string is returned."
 
-    |model app1 app2 text view v sv topView|
+    |model app1 app2 text v sv topView|
 
     text := self helpTextFromView:aView at:aPointOrNil.
     text notNil ifTrue:[ ^ text ].
 
-    view := aView.
-
     ((aView respondsTo:#application)
     and:[ (app1 := aView application) notNil ]) ifTrue:[
         text := self helpTextFromModel:app1 view:aView at:aPointOrNil.
@@ -685,7 +683,7 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.56 2006-01-09 08:52:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.57 2006-01-20 14:52:57 cg Exp $'
 ! !
 
 ActiveHelp initialize!