--- a/Collection.st	Mon May 08 09:07:41 2006 +0200
+++ b/Collection.st	Mon May 08 15:13:05 2006 +0200
@@ -1183,6 +1183,13 @@
     ^ self addAllTo:(Set new:self size)
 !
 
+asSharedCollection
+    "return a shared collection on the receiver.
+     This implements synchronized access to me."
+
+    ^ SharedCollection for:self.
+!
+
 asSortedCollection
     "return a new SortedCollection with the receiver collections elements"
 
@@ -2969,7 +2976,7 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.189 2006-04-21 13:42:38 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.190 2006-05-08 13:13:05 cg Exp $'
 ! !
 
 Collection initialize!