--- a/WindowBuilder.st	Mon Sep 10 16:14:34 2001 +0200
+++ b/WindowBuilder.st	Wed Sep 12 17:33:16 2001 +0200
@@ -360,7 +360,7 @@
         ((app := v application) notNil 
         and:[(b := app builder) notNil 
         and:[b ~~ self
-        and:[(comp := b componentAt:name) notNil]]]) ifTrue:[
+        and:[(comp := b findComponentAt:name) notNil]]]) ifTrue:[
             ^ comp
         ]
     ].
@@ -1266,5 +1266,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.92 2001-09-04 18:58:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.93 2001-09-12 15:33:16 cg Exp $'
 ! !