--- a/Assoc.st	Thu Nov 23 02:19:14 1995 +0100
+++ b/Assoc.st	Thu Nov 23 02:21:27 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 LookupKey subclass:#Association
-       instanceVariableNames:'value'
-       classVariableNames:''
-       poolDictionaries:''
-       category:'Collections-Support'
+	 instanceVariableNames:'value'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'Collections-Support'
 !
 
 !Association class methodsFor:'documentation'!
@@ -33,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Assoc.st,v 1.13 1995-11-11 14:26:43 cg Exp $'
-!
-
 documentation
 "
     Associations are a key-value pair; conceptionally, they are the elements of 
@@ -49,6 +45,10 @@
 	key             <Object>        the key (inherited)
 	value           <Object>        the value
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Assoc.st,v 1.14 1995-11-23 01:21:08 cg Exp $'
 ! !
 
 !Association class methodsFor:'instance creation'!
@@ -61,6 +61,14 @@
 
 !Association methodsFor:'accessing'!
 
+key:aKey value:aValue
+    "set both the key and value of the receiver.
+     Return the receiver"
+
+    key := aKey.
+    value := aValue
+!
+
 value
     "return the value of the association"
 
@@ -72,14 +80,6 @@
      Return the receiver"
 
     value := anObject
-!
-
-key:aKey value:aValue
-    "set both the key and value of the receiver.
-     Return the receiver"
-
-    key := aKey.
-    value := aValue
 ! !
 
 !Association methodsFor:'comparing'!
@@ -106,6 +106,14 @@
 
 !Association methodsFor:'printing & storing'!
 
+displayString
+    "return a string containing a printable representation
+     of the receiver for displaying - redefined to use display string on
+     the components for nicer look"
+
+    ^ key displayString , '->' , value displayString
+!
+
 printOn:aStream
     "return a string containing a printable representation
      of the receiver"
@@ -113,12 +121,5 @@
     key printOn:aStream.
     aStream nextPutAll:'->'.
     value printOn:aStream
-!
+! !
 
-displayString
-    "return a string containing a printable representation
-     of the receiver for displaying - redefined to use display string on
-     the components for nicer look"
-
-    ^ key displayString , '->' , value displayString
-! !