--- a/SharedCollection.st	Thu Jan 26 14:05:16 2017 +0100
+++ b/SharedCollection.st	Fri Jan 27 17:04:45 2017 +0100
@@ -196,6 +196,17 @@
     "Created: / 22-11-2010 / 20:59:06 / cg"
 !
 
+remove:someElement ifAbsent:aBlock
+    |rslt|
+
+    accessLock critical:[
+        rslt := realCollection remove:someElement ifAbsent:aBlock
+    ].
+    ^ rslt
+
+    "Created: / 25-01-2017 / 22:57:32 / stefan"
+!
+
 removeAllSuchThat:aBlock
     |rslt|