--- a/MenuItem.st	Thu Sep 19 11:26:33 2002 +0200
+++ b/MenuItem.st	Thu Sep 19 18:55:57 2002 +0200
@@ -249,7 +249,9 @@
 !
 
 resourceRetriever:aRetriever
-    ^ self labelImage:aRetriever
+    (aRetriever notNil or:[adornment notNil]) ifTrue:[
+        self adornment labelImage:aRetriever
+    ].
 !
 
 shortcutKeyCharacter
@@ -1146,5 +1148,5 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.49 2002-09-16 10:57:02 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.50 2002-09-19 16:55:57 ca Exp $'
 ! !