--- a/SharedCollection.st	Wed Mar 26 11:16:10 2014 +0100
+++ b/SharedCollection.st	Wed Mar 26 14:48:55 2014 +0100
@@ -89,7 +89,13 @@
 shallowCopy
     "analog to species - copy the real collection"
 
-    ^ realCollection shallowCopy
+    |rslt|
+
+    accessLock critical:[
+        "get a consistent copy"
+        rslt := realCollection shallowCopy
+    ].
+    ^ rslt.
 ! !
 
 !SharedCollection methodsFor:'initialization'!
@@ -239,10 +245,10 @@
 !SharedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SharedCollection.st,v 1.12 2014-03-26 10:16:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SharedCollection.st,v 1.13 2014-03-26 13:48:55 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/SharedCollection.st,v 1.12 2014-03-26 10:16:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SharedCollection.st,v 1.13 2014-03-26 13:48:55 stefan Exp $'
 ! !