--- a/SharedQueue.st	Mon Aug 26 23:53:56 2019 +0200
+++ b/SharedQueue.st	Mon Aug 26 23:54:02 2019 +0200
@@ -388,7 +388,8 @@
 nextPut:anObject
     "enter anObject to the end of the queue; 
      Wait for available space, if the queue is full. 
-     After the put, signal availablity of a datum to readers."
+     After the put, signal availablity of a datum to readers.
+     Answer anObject"
 
     self commonWriteWith:[self superNextPut:anObject].
     ^ anObject