--- a/False.st	Thu Jul 30 10:02:34 2009 +0200
+++ b/False.st	Thu Jul 30 10:02:43 2009 +0200
@@ -68,6 +68,10 @@
     ^ self
 !
 
+and:block1 and:block2
+    ^ self
+!
+
 ifFalse:aBlock
     "If the receiver is false, return the value of evaluating aBlock; nil otherwise.
      Since the receiver is definitely false here, unconditionally return the blocks value.
@@ -195,5 +199,5 @@
 !False class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/False.st,v 1.25 2009-06-11 15:31:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/False.st,v 1.26 2009-07-30 08:02:43 cg Exp $'
 ! !