--- a/SharedQueue.st	Tue Nov 26 10:21:36 2002 +0100
+++ b/SharedQueue.st	Tue Nov 26 10:40:25 2002 +0100
@@ -161,6 +161,15 @@
     ^ anObject.
 !
 
+nextPutFirst:anObject
+    spaceAvailable wait.
+    accessLock critical:[
+        super nextPutFirst:anObject.
+    ].
+    dataAvailable signal.
+    ^ anObject.
+!
+
 removeAll
     "remove all elements in the queue; do not wait, but
      synchronize access to the queue.
@@ -239,5 +248,5 @@
 !SharedQueue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.25 2001-06-13 08:17:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.26 2002-11-26 09:40:25 cg Exp $'
 ! !