--- a/UIHelpTool.st	Tue Oct 16 09:09:12 2012 +0200
+++ b/UIHelpTool.st	Thu Oct 18 13:10:18 2012 +0200
@@ -736,11 +736,22 @@
                 ].
 
                 value notNil ifTrue:[
-                    value keysAndValuesDo:[:k :v| |cval|
-                        cval := lastContents at:k ifAbsent:self.
-                        cval = v ifFalse:[ root add:(KeyItem helpKey:k helpText:v) ].
+                    (value isKindOf:Dictionary) ifTrue:[
+                        value keysAndValuesDo:[:k :v| |cval|
+                            cval := lastContents at:k ifAbsent:self.
+                            cval = v ifFalse:[ root add:(KeyItem helpKey:k helpText:v) ].
+                        ].
+                        lastContents := value.
+                    ] ifFalse:[
+                        |dict|
+                        dict := Dictionary new.
+                        value pairWiseDo:[:k :v| |cval|
+                            cval := lastContents at:k ifAbsent:self.
+                            cval = v ifFalse:[ root add:(KeyItem helpKey:k helpText:v) ].
+                            dict at:k put:v.
+                        ].
+                        lastContents := dict.
                     ].
-                    lastContents := value.
                 ].
                 root sort:[:a :b| a label < b label ].
                 root modified:false.