# HG changeset patch
# User ca
# Date 867922869 -7200
# Node ID 8dcd7f22e4d17b47e9114c0119766ac6ab058aa4
# Parent  7a219b861c678d44bc536cde5abe2b9888e8093a
checkin from browser

diff -r 7a219b861c67 -r 8dcd7f22e4d1 UIHelpTool.st
--- 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
     ].
 !