# HG changeset patch
# User tz
# Date 889711292 -3600
# Node ID bbe063ccf4a304f1337d46e158d9e283a17e1122
# Parent  2a09f1934fa5caddf6b5d9efad8112d656777ae9
class selection after opening

diff -r 2a09f1934fa5 -r bbe063ccf4a3 ResourceSelectionBrowser.st
--- a/ResourceSelectionBrowser.st	Wed Mar 11 23:16:09 1998 +0100
+++ b/ResourceSelectionBrowser.st	Thu Mar 12 15:01:32 1998 +0100
@@ -523,8 +523,8 @@
     resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol].
     resourceClass := aClassOrSymbol isClass 
         ifTrue: [aClassOrSymbol name] 
-        ifFalse: [(Smalltalk at: aClassOrSymbol)
-            ifTrue:  [aClassOrSymbol]
+        ifFalse: [(Smalltalk at: aClassOrSymbol) notNil
+            ifTrue: [aClassOrSymbol]
             ifFalse: [nil]].      
     self valueOfSelector value:(aSelector ? '').