--- a/WindowBuilder.st	Mon May 19 12:41:59 2008 +0200
+++ b/WindowBuilder.st	Mon May 19 18:03:19 2008 +0200
@@ -353,6 +353,9 @@
 !
 
 componentToSpecMappingAt:aView put:aSpec
+
+    "/ self assert:(aSpec isKindOf:UISpecification).
+
     componentToSpecMapping isNil ifTrue:[
         componentToSpecMapping := IdentityDictionary new.
     ].
@@ -1109,7 +1112,7 @@
 "/        ].
         self componentAt:name put:aView.
     ].
-    self componentToSpecMappingAt:aView put:spec.
+    spec addView:aView toMappingOfBuilder:self.
     componentCreationHook notNil ifTrue:[
         componentCreationHook value:aView value:spec value:self
     ].
@@ -1449,5 +1452,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.131 2008-05-19 10:41:28 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.132 2008-05-19 16:03:19 sr Exp $'
 ! !