--- a/ToolApplicationModel.st	Mon Apr 12 13:16:06 1999 +0200
+++ b/ToolApplicationModel.st	Mon Apr 12 13:19:11 1999 +0200
@@ -799,7 +799,7 @@
     |holder|
 
     (holder := builder bindingAt:#acceptChannel) isNil ifTrue:[
-        builder aspectAt:#acceptChannel put:(holder :=  false asValue).
+        builder aspectAt:#acceptChannel put:(holder :=  ValueHolder with:false).
     ].
     ^ holder
 
@@ -814,7 +814,7 @@
     |holder|
 
     (holder := builder bindingAt:#modifiedChannel) isNil ifTrue:[
-        builder aspectAt:#modifiedChannel put:(holder :=  false asValue).
+        builder aspectAt:#modifiedChannel put:(holder :=  ValueHolder with:false).
         holder 
             onChangeSend:#value
             to:[
@@ -1179,5 +1179,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.86 1999-03-25 16:55:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.87 1999-04-12 11:19:11 cg Exp $'
 ! !