--- a/IdentitySet.st	Fri Oct 13 13:02:18 2006 +0200
+++ b/IdentitySet.st	Fri Oct 13 13:04:26 2006 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 Set subclass:#IdentitySet
@@ -173,10 +172,7 @@
      with identical contents (but not caring for order)."
 
     aCollection size == self size ifFalse:[^ false].
-    aCollection do:[:eachElement |
-        (self includesIdentical:eachElement) ifFalse:[^ false]
-    ].
-    ^ true
+    ^ aCollection conform:[:eachElement | (self includesIdentical:eachElement)].
 
     "
      |col|
@@ -186,6 +182,8 @@
      col identicalContentsAs:(col copy asIdentitySet).  
      col identicalContentsAs:(col deepCopy asIdentitySet).  
    "
+
+    "Modified: / 13-10-2006 / 12:55:43 / cg"
 !
 
 includesIdentical:anObject
@@ -199,5 +197,5 @@
 !IdentitySet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.29 2003-05-19 18:36:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.30 2006-10-13 11:04:26 cg Exp $'
 ! !