ResourceSelectionBrowser.st
changeset 1605 8aab97d1f5fe
parent 1524 4efbd088b787
child 1716 5ae373f6fef0
--- a/ResourceSelectionBrowser.st	Mon Sep 16 12:15:16 2002 +0200
+++ b/ResourceSelectionBrowser.st	Mon Sep 23 11:37:48 2002 +0200
@@ -840,7 +840,7 @@
     aClassOrSymbol isClass 
         ifTrue: [resourceClass := aClassOrSymbol name] 
         ifFalse: [
-            aClassOrSymbol notNil ifTrue:[
+            aClassOrSymbol size > 0 ifTrue:[
                 (Smalltalk at: aClassOrSymbol) notNil
                 ifTrue: [resourceClass := aClassOrSymbol]
             ]