--- a/SharedCollection.st	Wed Feb 06 18:59:58 2008 +0100
+++ b/SharedCollection.st	Mon Feb 11 15:33:18 2008 +0100
@@ -93,6 +93,15 @@
 
 !SharedCollection methodsFor:'message forwarding'!
 
+add:anElement
+    |rslt|
+
+    accessLock critical:[
+        rslt := realCollection add:anElement
+    ].
+    ^ rslt
+!
+
 at:index
     |rslt|
 
@@ -157,5 +166,5 @@
 !SharedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SharedCollection.st,v 1.6 2006-12-07 16:54:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SharedCollection.st,v 1.7 2008-02-11 14:33:18 cg Exp $'
 ! !