--- a/FileSelectionItem.st	Tue Sep 16 05:49:24 1997 +0200
+++ b/FileSelectionItem.st	Tue Sep 16 06:01:58 1997 +0200
@@ -141,7 +141,9 @@
 
      ) do:[:el |
         image := Image fromFile:('xpmBitmaps/document_images/', el last ).
-        icons at:(el first) put:(image onDevice:aDevice).
+	image notNil ifTrue:[
+            icons at:(el first) put:(image onDevice:aDevice).
+	]
     ].
   ^ icons
 
@@ -351,5 +353,5 @@
 !FileSelectionItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionItem.st,v 1.3 1997-08-11 11:02:55 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionItem.st,v 1.4 1997-09-16 04:01:58 cg Exp $'
 ! !