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