--- a/ReadEvalPrintLoop.st	Tue Nov 08 18:44:07 2016 +0100
+++ b/ReadEvalPrintLoop.st	Tue Nov 08 18:47:14 2016 +0100
@@ -356,7 +356,7 @@
 !
 
 cmd_read:lineStream
-    |filename newInput savedPrompt savedPrint savedInput savedCurrentDirectory|
+    |filename newInput savedPrompt savedPrint savedInput savedCurrentDirectory savedDoChunkFormat|
 
     lineStream skipSeparators.
     filename := lineStream upToEnd withoutSeparators.
@@ -384,6 +384,7 @@
 
     [
         savedCurrentDirectory := currentDirectory.
+        savedDoChunkFormat := doChunkFormat.
         savedInput := inputStream.
         savedPrint := printFlag.
         savedPrompt := prompt.
@@ -398,12 +399,17 @@
             compiler:(compiler ? Compiler ? Parser)
             prompt:false
             print:false.
+        'after read1' errorPrintCR.
     ] ensure:[
+        doChunkFormat := savedDoChunkFormat.
         currentDirectory := savedCurrentDirectory.
         inputStream := savedInput.
         printFlag := savedPrint.
-        prompt := savedPrompt
+        prompt := savedPrompt.
+        
+        'ensure done' errorPrintCR.
     ].
+    'after read2' errorPrintCR.
 !
 
 cmd_set:lineStream
@@ -659,7 +665,7 @@
         ].
 
         input atEnd ifTrue:[
-            error cr.
+            doPrint ifTrue:[ error cr ].
             ^ self.
         ].