--- a/UIHelpTool.st	Thu Jul 03 10:52:54 1997 +0200
+++ b/UIHelpTool.st	Thu Jul 03 11:41:09 1997 +0200
@@ -160,6 +160,7 @@
     (dictionary := aDictionary) notNil ifTrue:[
         list := dictionary keys asOrderedCollection
     ] ifFalse:[
+        dictionary := IdentityDictionary new.
         list := nil
     ].
 !