--- a/Stream.st	Thu Nov 24 16:16:15 2016 +0100
+++ b/Stream.st	Thu Nov 24 16:16:25 2016 +0100
@@ -214,6 +214,12 @@
     ^ ChunkSeparator
 ! !
 
+!Stream class methodsFor:'testing'!
+
+isAbstract
+    ^ self == Stream
+! !
+
 !Stream methodsFor:'Compatibility-Dolphin'!
 
 display:someObject
@@ -223,6 +229,7 @@
     self nextPutAll: someObject asString.
 ! !
 
+
 !Stream methodsFor:'Compatibility-VW'!
 
 nl
@@ -232,6 +239,7 @@
     self nextPut:(Character nl)
 ! !
 
+
 !Stream methodsFor:'accessing'!
 
 contents