--- a/SharedQueue.st	Thu May 31 14:51:48 2007 +0200
+++ b/SharedQueue.st	Thu May 31 15:41:32 2007 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic2' }"
 
 Queue subclass:#SharedQueue
@@ -159,6 +158,12 @@
     ^ retVal.
 !
 
+nextOrNil
+    ^ self nextIfEmpty:nil
+
+    "Created: / 31-05-2007 / 15:09:33 / cg"
+!
+
 nextPut:anObject
     "enter anObject into the queue; wait for available space, if
      the queue is full. After the put, signal availablity of a datum
@@ -290,5 +295,5 @@
 !SharedQueue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.32 2006-03-30 17:08:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.33 2007-05-31 13:41:32 cg Exp $'
 ! !