--- a/UISpecificationTool.st	Fri Jan 30 15:05:54 1998 +0100
+++ b/UISpecificationTool.st	Fri Jan 30 15:19:38 1998 +0100
@@ -419,7 +419,15 @@
         aspects     notNil ifTrue:[ aspects     release ].
 
         specification  := aSpec.
-        aspects        := IdentityDictionary new.
+        
+        "/ some tricky specs need the builder
+        "/ during the addBindings phase.
+        "/ This is passed down in a special UIBindingsDictionary
+        "/ (remain backward compatible)
+
+        aspects        := UISpecification newBindingsDictionary.
+        aspects builder:builder.
+
         specChannel    := specification asValue.
         specification class addBindingsTo:aspects for:specification channel:specChannel.
         aspects do:[:el| el addDependent:self ].
@@ -429,6 +437,8 @@
         (builder componentAt:#Frame) destroySubViews.
         selection := nil.
     ].
+
+    "Modified: / 30.1.1998 / 13:50:51 / cg"
 ! !
 
 !UISpecificationTool methodsFor:'accessing channels'!