--- a/MethodSelectionBrowser.st	Mon Apr 20 00:22:38 1998 +0200
+++ b/MethodSelectionBrowser.st	Mon Apr 20 00:56:37 1998 +0200
@@ -129,7 +129,7 @@
     [
         |clsName contentsBlock|
         resourceTypes isNil ifTrue: [resourceTypes := #(instance class)].
-        clsName := self selectionOfClass value name.
+        clsName := (self selectionOfClass value name upTo: $ ) asSymbol.
         self valueOfClassName value: clsName.
         self class lastSelection: clsName.
         self listOfResourceMethods removeAll.