--- a/SharedQueue.st	Tue Oct 21 00:41:09 2014 +0200
+++ b/SharedQueue.st	Tue Oct 21 00:46:29 2014 +0200
@@ -348,7 +348,7 @@
     super init:size.
     dataAvailable := Semaphore new name:'shared q-read'.
     spaceAvailable := (Semaphore new:size) name:'shared q-write'.
-    accessLock := RecursionLock new.
+    accessLock := Semaphore forMutualExclusion.
 
     "Modified: 25.1.1997 / 00:19:45 / cg"
 ! !
@@ -356,6 +356,10 @@
 !SharedQueue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.37 2014-10-20 22:41:09 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.38 2014-10-20 22:46:29 stefan Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.38 2014-10-20 22:46:29 stefan Exp $'
 ! !