--- a/SharedCollection.st	Mon May 08 15:13:02 2006 +0200
+++ b/SharedCollection.st	Mon May 08 15:20:01 2006 +0200
@@ -119,6 +119,15 @@
     ^ rslt
 !
 
+size
+    |rslt|
+
+    accessLock critical:[
+        rslt := realCollection size
+    ].
+    ^ rslt
+!
+
 subclassResponsibility
     "catches every required message of the collection protocol"
 
@@ -134,5 +143,5 @@
 !SharedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SharedCollection.st,v 1.2 2006-05-08 13:13:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SharedCollection.st,v 1.3 2006-05-08 13:20:01 cg Exp $'
 ! !