--- 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.
--- 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: