--- a/UISpecificationTool.st	Fri Mar 19 13:24:33 1999 +0100
+++ b/UISpecificationTool.st	Fri Mar 19 15:12:25 1999 +0100
@@ -15,7 +15,7 @@
 
 ApplicationModel subclass:#UISpecificationTool
 	instanceVariableNames:'modifiedHolder aspects specification selection specChannel
-		scrolledView windowFrame'
+		scrolledView windowFrame acceptChannel'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-UIPainter'
@@ -546,6 +546,12 @@
 
 !UISpecificationTool methodsFor:'accessing'!
 
+acceptChannel
+    "return the value of the instance variable 'acceptChannel' (automatically generated)"
+
+    ^ masterApplication acceptChannel
+!
+
 specification
     "gets current edit specification
     "
@@ -587,6 +593,8 @@
 
         aspects        := UISpecification newBindingsDictionary.
         aspects builder:builder.
+        aspects at:#modifiedChannel put:modifiedHolder.
+        aspects at:#acceptChannel put:self acceptChannel.
 
         specChannel    := specification asValue.
         specification class addBindingsTo:aspects for:specification channel:specChannel.