--- a/RegressionTests__AssociationTests.st	Tue Oct 16 13:58:18 2012 +0200
+++ b/RegressionTests__AssociationTests.st	Thu Oct 18 21:57:19 2012 +0200
@@ -41,6 +41,14 @@
                 deny: (a = b)
 !
 
+testEquality2
+        |a1 a2|
+
+        a1 := 10->100.
+        a2 := 10->100.
+        self assert: (a1 = a2)
+!
+
 testHash
 
         self