--- a/False.st	Sat Nov 18 14:44:43 1995 +0100
+++ b/False.st	Sat Nov 18 14:53:53 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 Boolean subclass:#False
-       instanceVariableNames:''
-       classVariableNames:''
-       poolDictionaries:''
-       category:'Kernel-Objects'
+	 instanceVariableNames:''
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'Kernel-Objects'
 !
 
 !False class methodsFor:'documentation'!
@@ -33,12 +33,9 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic/False.st,v 1.12 1995-11-18 13:44:43 cg Exp $'
-!
-
 documentation
 "
+lets see ....
     False has only one instance, false, representing logical falsehood.
     Some methods are implemented here and in True, instead of the common
     superclass Boolean. This has the advantage, that no truth-value checks 
@@ -48,45 +45,22 @@
     of some methods here will not have any effect on compiled code.
     (redefining ifTrue: to something else will probably crash the smalltalk
      world anyway ...)
-chacged in 1.12
-"
-! !
-
-!False methodsFor:'logical operations'!
 
-& aBoolean
-    "return true, if both the receiver and the argument are true
-     (since the receiver is false, return false)"
+"
 
-    ^ false
-!
-
-| aBoolean
-    "return true, if either the receiver or the argument is true
-     (since the receiver is false, return the argument)"
-
-    ^ aBoolean
+    "Created: 18.11.1995 / 14:53:42 / cg"
 !
 
-not
-    "return true, if the receiver is false, false otherwise
-     (since the receiver is false, return true)"
+version
+^ '$Header: /cvs/stx/stx/libbasic/False.st,v 1.13 1995-11-18 13:53:53 cg Exp $'! !
 
-    ^ true
-!
+!False methodsFor:'binary storage'!
 
-eqv:aBoolean
-    "return true, if the receiver and the argument are the same truth value
-     (since the receiver is false, return true if the argument is also false)"
+storeBinaryOn: stream manager: manager
+    "store a binary representation of the receiver on stream;
+     redefined, since false is stored with a special type-code"
 
-    ^ aBoolean not
-!
-
-xor:aBoolean
-    "return true, if the receiver and the argument are different truth values
-     (since the receiver is false, return true, if the armument is not false)"
-
-    ^ aBoolean
+    stream nextPut: manager codeForFalse
 ! !
 
 !False methodsFor:'conditional evaluation'!
@@ -99,14 +73,6 @@
     ^ self
 !
 
-or:aBlock
-    "evaluate aBlock if the receiver is false.
-     (since the receiver is false return the value of evaluating aBlock).
-     - open coded by compiler"
-
-    ^ aBlock value
-!
-
 ifFalse:aBlock
     "return the value of evaluating aBlock if the receiver is false.
      (since the receiver is known to be false always evaluate)
@@ -115,6 +81,13 @@
     ^ aBlock value
 !
 
+ifFalse:falseBlock ifTrue:trueBlock
+    "return the value of evaluating falseBlock (since the receiver is false)
+     - open coded by compiler"
+
+    ^ falseBlock value
+!
+
 ifTrue:aBlock
     "return the false alternative, nil (since the receiver is false)
      - open coded by compiler"
@@ -129,14 +102,52 @@
     ^ falseBlock value
 !
 
-ifFalse:falseBlock ifTrue:trueBlock
-    "return the value of evaluating falseBlock (since the receiver is false)
+or:aBlock
+    "evaluate aBlock if the receiver is false.
+     (since the receiver is false return the value of evaluating aBlock).
      - open coded by compiler"
 
-    ^ falseBlock value
+    ^ aBlock value
 ! !
 
-!False methodsFor: 'printing & storing'!
+!False methodsFor:'logical operations'!
+
+& aBoolean
+    "return true, if both the receiver and the argument are true
+     (since the receiver is false, return false)"
+
+    ^ false
+!
+
+eqv:aBoolean
+    "return true, if the receiver and the argument are the same truth value
+     (since the receiver is false, return true if the argument is also false)"
+
+    ^ aBoolean not
+!
+
+not
+    "return true, if the receiver is false, false otherwise
+     (since the receiver is false, return true)"
+
+    ^ true
+!
+
+xor:aBoolean
+    "return true, if the receiver and the argument are different truth values
+     (since the receiver is false, return true, if the armument is not false)"
+
+    ^ aBoolean
+!
+
+| aBoolean
+    "return true, if either the receiver or the argument is true
+     (since the receiver is false, return the argument)"
+
+    ^ aBoolean
+! !
+
+!False methodsFor:'printing & storing'!
 
 printString
     "return character sequence representing the receiver"
@@ -144,11 +155,3 @@
     ^ 'false'
 ! !
 
-!False methodsFor: 'binary storage'!
-
-storeBinaryOn: stream manager: manager
-    "store a binary representation of the receiver on stream;
-     redefined, since false is stored with a special type-code"
-
-    stream nextPut: manager codeForFalse
-! !