--- a/Cons.st	Sat Mar 20 16:59:29 2010 +0100
+++ b/Cons.st	Fri Mar 26 00:18:37 2010 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic2' }"
 
 SequenceableCollection subclass:#Cons
@@ -299,6 +298,18 @@
     ] loop.
 ! !
 
+!Cons methodsFor:'comparing'!
+
+= aCons
+    ^ aCons class == self class
+    and:[ car = aCons car
+    and:[ cdr = aCons cdr ]]
+!
+
+hash
+    ^ car hash bitXor: cdr hash
+! !
+
 !Cons methodsFor:'enumerating'!
 
 do:aBlock
@@ -449,5 +460,9 @@
 !Cons class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.9 2006-04-13 15:21:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.10 2010-03-25 23:18:37 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.10 2010-03-25 23:18:37 cg Exp $'
 ! !