--- a/PeekableStream.st	Sat Jul 09 13:31:01 2016 +0200
+++ b/PeekableStream.st	Sat Jul 09 21:19:49 2016 +0200
@@ -595,6 +595,13 @@
     ^ self peek
 !
 
+nextPeekOrNil
+    "advance to next element and return the peeked element"
+
+    self nextOrNil.
+    ^ self peekOrNil
+!
+
 nextUpTo:anObject
     "read a collection of all objects up-to anObject and return these
      elements, but excluding anObject.