--- a/Boolean.st	Thu Dec 07 22:12:53 1995 +0100
+++ b/Boolean.st	Thu Dec 07 22:24:46 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 Object subclass:#Boolean
-       instanceVariableNames:''
-       classVariableNames:''
-       poolDictionaries:''
-       category:'Kernel-Objects'
+	 instanceVariableNames:''
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'Kernel-Objects'
 !
 
 !Boolean class methodsFor:'documentation'!
@@ -33,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.15 1995-11-11 14:27:17 cg Exp $'
-!
-
 documentation
 "
     Boolean is an abstract class defining the common protocol for logical
@@ -70,6 +66,14 @@
     ^ true
 ! !
 
+!Boolean methodsFor:'binary storage'!
+
+hasSpecialBinaryRepresentation
+    "return true, if the receiver has a special binary representation"
+
+	^true
+! !
+
 !Boolean methodsFor:'converting'!
 
 literalArrayEncoding
@@ -89,13 +93,6 @@
     ^ self
 !
 
-shallowCopy
-    "return a shallow copy of the receiver
-     - since both true and false are unique, return the receiver"
-
-    ^ self
-!
-
 deepCopy
     "return a deep copy of the receiver
      - since both true and false are unique, return the receiver"
@@ -110,6 +107,13 @@
     ^ self
 !
 
+shallowCopy
+    "return a shallow copy of the receiver
+     - since both true and false are unique, return the receiver"
+
+    ^ self
+!
+
 simpleDeepCopy
     "return a deep copy of the receiver
      - since both true and false are unique, return the receiver"
@@ -117,6 +121,29 @@
     ^ self
 ! !
 
+!Boolean methodsFor:'printing & storing'!
+
+printOn:aStream
+    "append a character sequence representing the receiver to the argument,
+     aStream"
+
+    aStream nextPutAll:self printString
+!
+
+storeOn:aStream
+    "append a character sequence to the argument, aStream from which the
+     receiver can be reconstructed using readFrom:."
+
+    ^ self printOn:aStream
+!
+
+storeString
+    "return  a character sequence to the argument, aStream from which the
+     receiver can be reconstructed using readFrom:."
+
+    ^ self printString
+! !
+
 !Boolean methodsFor:'queries'!
 
 isLiteral
@@ -126,33 +153,8 @@
     ^ true
 ! !
 
-!Boolean methodsFor:'printing & storing'!
-
-printOn:aStream
-    "append a character sequence representing the receiver to the argument,
-     aStream"
-
-    aStream nextPutAll:self printString
-!
-
-storeString
-    "return  a character sequence to the argument, aStream from which the
-     receiver can be reconstructed using readFrom:."
+!Boolean class methodsFor:'documentation'!
 
-    ^ self printString
-!
-
-storeOn:aStream
-    "append a character sequence to the argument, aStream from which the
-     receiver can be reconstructed using readFrom:."
-
-    ^ self printOn:aStream
+version
+    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.16 1995-12-07 21:24:46 cg Exp $'
 ! !
-
-!Boolean methodsFor: 'binary storage'!
-
-hasSpecialBinaryRepresentation
-    "return true, if the receiver has a special binary representation"
-
-	^true
-! !