--- a/ToolApplicationModel.st	Fri Mar 19 13:24:05 1999 +0100
+++ b/ToolApplicationModel.st	Sat Mar 20 16:22:42 1999 +0100
@@ -817,11 +817,9 @@
         builder aspectAt:#modifiedChannel put:(holder :=  false asValue).
         holder 
             onChangeSend:#value
-            to:[|m|
-
-                m := self valueOfEnablingCommitButtons value.
-                m ifFalse:[
-                    self valueOfEnablingCommitButtons value:holder value
+            to:[
+                holder value ifTrue:[
+                    self valueOfEnablingCommitButtons value:true.
                 ]
                ]
     ].
@@ -1181,5 +1179,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.84 1999-03-19 12:23:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.85 1999-03-20 15:22:42 cg Exp $'
 ! !