--- a/UIGalleryView.st	Wed Oct 15 12:41:27 1997 +0200
+++ b/UIGalleryView.st	Wed Oct 15 12:45:33 1997 +0200
@@ -134,11 +134,7 @@
 majorKey:aKey
     "get the class providing the window specifications
     "
-    (majorKey := aKey) notNil ifTrue:[
-        aKey isBehavior ifFalse:[
-            majorKey := Smalltalk at:aKey asSymbol
-        ]
-    ].
+    majorKey := self resolveName:aKey.
     self selection:nil
 !