--- a/MenuEditor.st	Tue Jul 21 18:52:23 1998 +0200
+++ b/MenuEditor.st	Tue Jul 21 19:04:09 1998 +0200
@@ -1849,8 +1849,13 @@
 updateListOfImages
     "updates the list of images"
 
-    |iconClass|
-    iconClass := Smalltalk at: (aspects at: #retriever) value ? specClass.
+    |iconClass|      
+
+    (iconClass := (aspects at: #retriever) value ? specClass) notNil ifTrue: 
+    [
+        iconClass := Smalltalk at: iconClass
+    ].
+
     self listOfImages contents:
         ((self class getAllImageSelectorsFrom: iconClass)
             collect: [:sel| |image| image := iconClass perform: sel. LabelAndIcon icon:(image magnifiedBy: 22/image extent y ) string: sel]).