--- a/UIHelpTool.st	Thu Feb 03 18:31:08 2000 +0100
+++ b/UIHelpTool.st	Thu Feb 03 19:44:49 2000 +0100
@@ -548,7 +548,7 @@
 
         (eTxtView := self editTextView) notNil ifTrue: [
             modChannel := eTxtView modifiedChannel.
-            modChannel onChangeSend:#value to:[
+            modChannel onChangeEvaluate:[
                 modifiedHolder notNil ifTrue:[
                     modChannel value ifTrue:[
                         modifiedHolder value:true