--- a/UninterpretedBytes.st	Tue Jan 23 17:48:26 2018 +0100
+++ b/UninterpretedBytes.st	Tue Jan 23 19:11:28 2018 +0100
@@ -4926,6 +4926,14 @@
 
 !UninterpretedBytes methodsFor:'misc'!
 
+copyToEndInto:aStream
+    "copy all of myself into aStream. Compatibility with Stream"
+
+    aStream nextPutAll:self.
+
+    "Created: / 23-01-2018 / 18:43:40 / stefan"
+!
+
 swapLongAt:byteIndex
     "swap the byteOrder of a long.
      The index is a smalltalk index (i.e. 1-based)."