--- a/DirectoryContentsBrowser.st	Fri Dec 16 14:40:40 2005 +0100
+++ b/DirectoryContentsBrowser.st	Fri Dec 16 14:42:55 2005 +0100
@@ -2200,10 +2200,12 @@
         desc := self findNextItemFor:[:n| n icon isNil ].
         desc notNil ifTrue:[
             icon := self getIconFor:desc.
-            desc icon:icon.
-            browser invalidateVisibleRow:desc colAt:iconIndex.
-            self debugMessage:'icon for invisible items by suffix ', desc baseName.
-            ^ true
+            icon notNil ifTrue:[
+                desc icon:icon.
+                browser invalidateVisibleRow:desc colAt:iconIndex.
+                self debugMessage:'icon for invisible items by suffix ', desc baseName.
+                ^ true
+            ].
         ].
         "/ update icon for invisible items by contents
         desc := self findNextItemFor:[:n| (n iconKey == #file and:[n mimeTypeForContents ~= #unknown])].
@@ -3208,5 +3210,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.185 2005-12-16 13:39:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.186 2005-12-16 13:42:55 cg Exp $'
 ! !