--- a/PeekableStream.st	Fri Apr 22 21:13:32 2016 +0100
+++ b/PeekableStream.st	Sat Apr 23 09:05:39 2016 +0100
@@ -206,7 +206,7 @@
     theString := buffer contents.
     (hasCR and:[hasLF not]) ifTrue:[
         "map all CR in a CR only file to NL (ExternalStream>>#nextChunk did this)"
-        theString replaceAll:Character cr with:Character nl.
+        theString replaceAll:Character return with:Character nl.
     ].
 
     ^ theString