--- a/UIPainterView.st	Wed Jan 09 20:29:20 2008 +0100
+++ b/UIPainterView.st	Wed Jan 09 21:07:57 2008 +0100
@@ -2012,9 +2012,8 @@
         aBuilder applicationClass:cls.
     ].
 
-    "/ remember view<->spec associations; break refs to child-specs
-    "/ (not needed, as we keep the child info in the view hierarchy)
-    aBuilder componentCreationHook:[:aView :aSpec :aBdr|
+    "/ remember view<->spec associations to tree
+    aBuilder componentCreationHook:[:aView :aSpec :builder|
         |sv p s n|
 
         p := ViewProperty new.
@@ -2022,6 +2021,8 @@
         p spec:s.
         p view:aView.
 
+        "/ break refs to child-specs
+        "/ (not needed, as we keep the child info in the view hierarchy)
         s class supportsSubComponents ifTrue:[
             s component:nil
         ].