--- a/UIHelpTool.st	Tue May 28 12:33:11 2013 +0200
+++ b/UIHelpTool.st	Tue Jun 04 11:40:48 2013 +0200
@@ -740,7 +740,7 @@
                 ].
 
                 value notNil ifTrue:[
-                    (value isKindOf:Dictionary) ifTrue:[
+                    (value isDictionary) ifTrue:[
                         value keysAndValuesDo:[:k :v| |cval|
                             cval := lastContents at:k ifAbsent:self.
                             cval = v ifFalse:[ root add:(KeyItem helpKey:k helpText:v) ].
@@ -1467,3 +1467,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+