--- a/BooleanValueHolder.st	Mon May 19 18:12:11 2008 +0200
+++ b/BooleanValueHolder.st	Mon May 19 18:12:21 2008 +0200
@@ -80,7 +80,7 @@
 & anotherBooleanValueHolder
     "return another valueHolder, which returns the logical and of myself and another valueHolder"
 
-    ^ BlockValue 
+    ^ BooleanBlockValue 
         forLogical:self and:anotherBooleanValueHolder
 
     "
@@ -100,7 +100,7 @@
 not
     "return another valueHolder, which returns the logical not of myself"
 
-    ^ BlockValue forLogicalNot:self.
+    ^ BooleanBlockValue forLogicalNot:self.
 
     "
      |b nb|
@@ -117,7 +117,7 @@
 | anotherBooleanValueHolder
     "return another valueHolder, which returns the logical and of myself and another valueHolder"
 
-    ^ BlockValue 
+    ^ BooleanBlockValue 
         forLogical:self or:anotherBooleanValueHolder
 
     "
@@ -137,5 +137,5 @@
 !BooleanValueHolder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/BooleanValueHolder.st,v 1.1 2008-05-17 10:18:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/BooleanValueHolder.st,v 1.2 2008-05-19 16:12:21 cg Exp $'
 ! !