--- a/SelectionInTreeView.st	Thu Jan 18 20:53:02 2018 +0100
+++ b/SelectionInTreeView.st	Thu Jan 18 20:53:14 2018 +0100
@@ -2246,19 +2246,19 @@
 figureFor:aNode
     "return a (bitmap) figure for a node"
 
-    |icon img|
-
-    "/ the item may provide an icon
+    |iconOrKey img|
+
+    "/ the item may provide an icon or an iconKey
     "/ (it knows for itself if it's open or closed)
 
-    (icon := aNode icon) notNil ifTrue:[
-        img := registeredImages at:icon ifAbsent:nil.
+    (iconOrKey := aNode icon) notNil ifTrue:[
+        img := registeredImages at:iconOrKey ifAbsent:nil.
         img notNil ifTrue:[
             ^ img
         ].
-        icon isImage ifTrue:[
-            img := icon onDevice:device.
-            registeredImages at:icon put:img.
+        iconOrKey isImage ifTrue:[
+            img := iconOrKey onDevice:device.
+            registeredImages at:iconOrKey put:img.
             ^ img
         ]
     ].