--- a/UIHelpTool.st	Fri Jan 02 17:03:12 1998 +0100
+++ b/UIHelpTool.st	Mon Jan 05 09:33:12 1998 +0100
@@ -401,18 +401,22 @@
 accept
     "accept the text
     "
-    |view key txt list|
+    |view key txt list listChgd|
 
     (listSelection size == 0 or:[(view := self editTextView) isNil]) ifFalse:[
-        txt  := view contents asString.
-        key  := listSelection asSymbol.
-        list := self listChannel value.
+        txt    := view contents asString.
+        key    := listSelection asSymbol.
+        list   := self listChannel value.
 
-        (dictionary at:key ifAbsent:nil) isNil ifTrue:[
+        (listChgd := (dictionary at:key ifAbsent:nil) isNil) ifTrue:[
             list add:key.
         ].
         dictionary at:key put:txt.
         isModified := true.
+
+        listChgd ifTrue:[
+            self updateList
+        ]
     ]
 !