--- a/SharedQueue.st	Tue Jun 25 11:09:04 2019 +0200
+++ b/SharedQueue.st	Tue Jun 25 14:22:47 2019 +0200
@@ -340,9 +340,14 @@
 !
 
 nextOrNil
+    "return the next value in the queue; 
+     if it is empty do not wait, but return nil.
+     When a datum has been removed, signal space-availability to writers"
+
     ^ self nextIfEmpty:nil
 
     "Created: / 31-05-2007 / 15:09:33 / cg"
+    "Modified (comment): / 25-06-2019 / 14:22:33 / Claus Gittinger"
 !
 
 nextWithTimeout:seconds