--- a/SelectionInTreeView.st	Tue Sep 16 00:25:38 1997 +0200
+++ b/SelectionInTreeView.st	Tue Sep 16 02:06:34 1997 +0200
@@ -488,7 +488,9 @@
 
         "/ draw image
         image := self figureFor:node.
-        self displayForm:image x:xFig y:(yCtr - (image height // 2)).
+	image notNil ifTrue:[
+            self displayForm:image x:xFig y:(yCtr - (image height // 2)).
+	].
 
         "/ draw text label
         self drawLabelIndex:index atX:xStr y:yCtr .
@@ -1163,5 +1165,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.19 1997-09-15 22:25:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.20 1997-09-16 00:06:34 cg Exp $'
 ! !