--- a/Collection.st	Wed Oct 22 21:30:04 2008 +0200
+++ b/Collection.st	Wed Oct 22 21:30:47 2008 +0200
@@ -368,6 +368,12 @@
     ^ self ifEmpty:ifEmptyValue ifNotEmpty:ifNotEmptyValue
 !
 
+intersection:aCollection
+    ^ self intersect:aCollection
+
+    "Created: / 22-10-2008 / 21:29:27 / cg"
+!
+
 withIndexDo:aTwoArgBlock 
     "evaluate the argument, aBlock for every element in the collection,
      passing both element and index as arguments."
@@ -2327,7 +2333,6 @@
 ! !
 
 
-
 !Collection methodsFor:'printing & storing'!
 
 displayString
@@ -3269,7 +3274,7 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.204 2008-10-19 11:13:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.205 2008-10-22 19:30:47 cg Exp $'
 ! !
 
 Collection initialize!