--- a/False.st	Mon Mar 06 09:57:38 2006 +0100
+++ b/False.st	Mon Mar 06 09:57:41 2006 +0100
@@ -78,11 +78,11 @@
 !
 
 ifFalse:aBlock
-    "return the value of evaluating aBlock if the receiver is false.
-     (since the receiver is known to be false always evaluate)
+    "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.
      Notice:
-	This method is open coded (inlined) by the compiler(s)
-	- redefining it may not work as expected."
+        This method is open coded (inlined) by the compiler(s)
+        - redefining it may not work as expected."
 
     ^ aBlock value
 !
@@ -97,10 +97,11 @@
 !
 
 ifTrue:aBlock
-    "return the false alternative, nil (since the receiver is false)
+    "If the receiver is true, return the value of evaluating aBlock; nil otherwise.
+     Since the receiver is definitely false here, unconditionally return nil value.
      Notice:
-	This method is open coded (inlined) by the compiler(s)
-	- redefining it may not work as expected."
+        This method is open coded (inlined) by the compiler(s)
+        - redefining it may not work as expected."
 
     ^ nil
 !
@@ -189,5 +190,5 @@
 !False class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libbasic/False.st,v 1.20 2005-11-24 23:29:34 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/False.st,v 1.21 2006-03-06 08:57:41 cg Exp $'
 ! !