--- a/Icon.st	Wed May 23 16:45:50 2001 +0200
+++ b/Icon.st	Sat Jun 02 16:02:55 2001 +0200
@@ -129,7 +129,11 @@
     |icon nm|
 
     icon := KnownIcons at:aName ifAbsent:[].
+
     icon isNil ifTrue:[
+        (aName indexOfSeparatorStartingAt:1) ~~ 0 ifTrue:[
+            ^ nil
+        ].
         nm := self replacementNameFor:aName.
         nm notNil ifTrue:[
             icon := Smalltalk imageFromFileNamed:nm forClass:self.
@@ -137,6 +141,7 @@
                 icon := Smalltalk imageFromFileNamed:(nm , '.xbm') forClass:self.
             ]
         ].
+
         icon isNil ifTrue:[
             icon := Smalltalk imageFromFileNamed:aName forClass:self.
             icon isNil ifTrue:[
@@ -605,6 +610,6 @@
 !Icon class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.28 2001-05-17 09:03:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.29 2001-06-02 14:02:55 ca Exp $'
 ! !
 Icon initialize!