--- a/ResourceSelectionBrowser.st	Sat Feb 14 21:17:29 1998 +0100
+++ b/ResourceSelectionBrowser.st	Sat Feb 14 22:25:35 1998 +0100
@@ -452,9 +452,7 @@
         ].
         self valueOfClassName value: clsPattern
     ].
-
-    self valueOfClassName value: classSelection.
-    self selectionOfResource value: (self listOfResources detect: [:m| m selector == resourceMethod] ifNone: nil).
+    self valueOfClassName value: classSelection.  
     self classNameInputField entryCompletionBlock:
     [:value|
         |what|
@@ -466,7 +464,9 @@
     self listOfClassesView validateDoubleClickBlock: [:aTreeItem | aTreeItem contents ~~ self treeViewContents].
     self listOfClassesView selectedNodeExpand: true.
 
-    [classSelectionBlock value: classSelection] forkAt: 4.
+    [[classSelectionBlock value: classSelection] value.
+    self selectionOfResource value: (self listOfResources detect: [:m| m selector == resourceMethod] ifNone: nil)]
+    forkAt: 4.
 
     ^super postBuildWith:aBuilder