--- a/UIGalleryView.st	Wed Oct 15 15:39:41 1997 +0200
+++ b/UIGalleryView.st	Wed Oct 15 15:41:28 1997 +0200
@@ -134,7 +134,15 @@
 majorKey:aKey
     "get the class providing the window specifications
     "
-    majorKey := self resolveName:aKey.
+    |appl|
+
+    appl := self application.
+
+    appl notNil ifTrue:[
+        majorKey := appl resolveName:aKey
+    ] ifFalse:[
+        majorKey := Smalltalk resolveName:aKey inClass:self class
+    ].
     self selection:nil
 !