--- a/ResourceSelectionBrowser.st	Wed Mar 24 16:27:33 1999 +0100
+++ b/ResourceSelectionBrowser.st	Wed Mar 24 17:04:22 1999 +0100
@@ -770,7 +770,7 @@
         and aSelector,
         with allowed aResourceTypes"
 
-    |clsName|
+    |clsName clsNameString|
 
     resourceMethod := aSelector.
     resourceTypes := aResourceTypes.
@@ -789,17 +789,30 @@
 
     self open.
 
-    (clsName := self selectionOfClassHierarchy value) isNil 
-        ifTrue:  [(clsName := self selectionOfClassCategories value) isNil ifTrue:  [^nil]].
-
-    clsName := (clsName name upTo: $ ) asSymbol.
+    (clsName := self selectionOfClassHierarchy value) isNil ifTrue:[
+        (clsName := self selectionOfClassCategories value) isNil ifTrue:[
+            (clsNameString := self valueOfClassName value) isNil ifTrue:[
+                accept value ifTrue:[
+                    self warn:'No valid class selected/entered'.
+                ].
+                ^ nil
+            ]
+        ]
+    ].
 
-    ((Smalltalk at: clsName) isClass and: [accept value]) 
-    ifTrue:
-    [            
-        ^clsName, ' ', self valueOfResourceSelector value
+    clsNameString isNil ifTrue:[
+        clsNameString := clsName name upTo:Character space
     ].
-    ^nil
+    clsNameString := clsNameString asSymbol.
+
+    ((Smalltalk at: clsNameString) isClass and:[accept value]) ifTrue:[            
+        ^ clsNameString, ' ', self valueOfResourceSelector value
+    ].
+
+    accept value ifTrue:[
+        self warn:'No valid class selected/entered'.
+    ].
+    ^ nil
 
     "Modified: / 22.4.1998 / 14:51:03 / cg"
 ! !