--- a/ReadEvalPrintLoop.st	Thu Dec 07 18:14:34 2006 +0100
+++ b/ReadEvalPrintLoop.st	Thu Dec 07 18:25:18 2006 +0100
@@ -12,7 +12,8 @@
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#ReadEvalPrintLoop
-	instanceVariableNames:'inputStream outputStream errorStream compiler prompt chunkFormat'
+	instanceVariableNames:'inputStream outputStream errorStream compiler prompt
+		doChunkFormat'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'* uncategorized *'
@@ -36,12 +37,14 @@
 
 !ReadEvalPrintLoop methodsFor:'accessing'!
 
-chunkFormat:something
-    chunkFormat := something.
+compiler:something
+    compiler := something.
 !
 
-compiler:something
-    compiler := something.
+doChunkFormat:something
+    doChunkFormat := something.
+
+    "Created: / 07-12-2006 / 18:24:04 / cg"
 !
 
 error:something
@@ -91,7 +94,7 @@
             ^ self.
         ].
 
-        (chunkFormat ? true) ifTrue:[
+        (doChunkFormat ? true) ifTrue:[
             input skipSeparators.
             chunk := input nextChunk.
         ] ifFalse:[
@@ -133,5 +136,5 @@
 !ReadEvalPrintLoop class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.4 2006-12-07 17:14:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.5 2006-12-07 17:25:18 cg Exp $'
 ! !