--- a/PeekableStream.st	Sat Jun 09 13:08:09 2018 +0200
+++ b/PeekableStream.st	Mon Jun 11 14:34:12 2018 +0200
@@ -133,6 +133,14 @@
     ^ self == PeekableStream
 ! !
 
+!PeekableStream methodsFor:'accessing'!
+
+contents
+    ^ self upToEnd.
+
+    "Created: / 11-06-2018 / 13:47:53 / Stefan Vogel"
+! !
+
 !PeekableStream methodsFor:'chunk input/output'!
 
 nextChunk