--- a/Queue.st	Mon Aug 26 23:54:02 2019 +0200
+++ b/Queue.st	Mon Aug 26 23:54:41 2019 +0200
@@ -522,7 +522,8 @@
 !Queue methodsFor:'accessing-writing'!
 
 nextPut:anObject
-    "enter anObject into the queue - if the queue is full, report an error"
+    "enter anObject into the queue - if the queue is full, report an error.
+     Answer anObject"
 
     |sz pos "{ Class: SmallInteger }" |