--- a/Stream.st	Wed Jul 06 22:22:52 2016 +0200
+++ b/Stream.st	Wed Jul 06 22:24:50 2016 +0200
@@ -2847,6 +2847,12 @@
     ^ nil
 !
 
+numAvailableForRead
+    "answer the nuber of bytes available for reading"
+    
+    ^ self size
+!
+
 numberOfTerminalCols
     ^ self lineLength
 !
@@ -3781,9 +3787,9 @@
     self atEnd ifTrue:[
         ^ self pastEndRead
     ].
-    answerStream := WriteStream on:(self contentsSpecies new).
+    answerStream := WriteStream on:(self contentsSpecies uninitializedNew:80).
     self upTo:Character cr into:answerStream.
-    (answerStream size > 0 and:[answerStream last = Character return]) ifTrue:[
+    (answerStream size ~~ 0 and:[answerStream last = Character return]) ifTrue:[
         answerStream backStep.
     ].
     ^ answerStream contents