--- a/False.st	Thu Jul 30 12:32:43 2009 +0200
+++ b/False.st	Fri Jul 31 10:12:36 2009 +0200
@@ -69,6 +69,20 @@
 !
 
 and:block1 and:block2
+    "return false"
+
+    ^ self
+!
+
+and:block1 and:block2 and:block3
+    "return false"
+
+    ^ self
+!
+
+and:block1 and:block2 and:block3 and:block4
+    "return false"
+
     ^ self
 !
 
@@ -118,6 +132,24 @@
 	- redefining it may not work as expected."
 
     ^ aBlock value
+!
+
+or:block1 or:block2
+    block1 value ifTrue:[^ true].
+    ^ block2 value
+!
+
+or:block1 or:block2 or:block3
+    block1 value ifTrue:[^ true].
+    block2 value ifTrue:[^ true].
+    ^ block3 value
+!
+
+or:block1 or:block2 or:block3 or:block4
+    block1 value ifTrue:[^ true].
+    block2 value ifTrue:[^ true].
+    block3 value ifTrue:[^ true].
+    ^ block4 value
 ! !
 
 !False methodsFor:'converting'!
@@ -199,5 +231,5 @@
 !False class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/False.st,v 1.26 2009-07-30 08:02:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/False.st,v 1.27 2009-07-31 08:12:36 cg Exp $'
 ! !