--- a/BlockValue.st	Sat May 09 09:52:00 2015 +0200
+++ b/BlockValue.st	Mon May 11 23:11:34 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libview2' }"
 
+"{ NameSpace: Smalltalk }"
+
 ValueModel subclass:#BlockValue
 	instanceVariableNames:'cachedValue arguments block'
 	classVariableNames:'NeverComputed'
@@ -237,7 +241,7 @@
 !
 
 forLogicalAndAll:argArray
-    "return a new BlockValue computing the logical OR of all elements
+    "return a new BlockValue computing the logical AND of all elements
      in the passed argArray (which are usually other valueHolders)"
 
     ^ (self new) 
@@ -548,11 +552,11 @@
 !BlockValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/BlockValue.st,v 1.27 2014-06-18 16:51:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/BlockValue.st,v 1.28 2015-05-11 21:11:34 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/BlockValue.st,v 1.27 2014-06-18 16:51:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/BlockValue.st,v 1.28 2015-05-11 21:11:34 stefan Exp $'
 ! !