--- a/MethodSelectionBrowser.st	Wed Feb 25 23:21:00 1998 +0100
+++ b/MethodSelectionBrowser.st	Wed Feb 25 23:26:47 1998 +0100
@@ -110,7 +110,7 @@
     [
         |clsName|
         resourceTypes isNil ifTrue: [resourceTypes := #(instance class)].
-        clsName := self listOfClassesView list at: anIndex.
+        clsName := ((self listOfClassesView list at: anIndex) upTo: $ ) asSymbol.
         self valueOfClassName value: clsName.
         self class lastSelection: clsName.
         (resourceTypes includes: #instance) ifTrue: [