--- a/ReadEvalPrintLoop.st	Wed Jul 04 17:54:25 2007 +0200
+++ b/ReadEvalPrintLoop.st	Wed Jul 04 17:57:18 2007 +0200
@@ -51,6 +51,12 @@
     compiler := something.
 !
 
+doChunkFormat
+    ^ doChunkFormat ? true
+
+    "Created: / 07-12-2006 / 18:24:04 / cg"
+!
+
 doChunkFormat:something
     doChunkFormat := something.
 
@@ -290,7 +296,7 @@
                 ^ self.
             ].
 
-            (doChunkFormat ? true) ifTrue:[
+            self doChunkFormat ifTrue:[
                 input skipSeparators.
                 chunk := input nextChunk.
             ] ifFalse:[
@@ -358,5 +364,5 @@
 !ReadEvalPrintLoop class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.24 2007-07-04 15:54:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.25 2007-07-04 15:57:18 cg Exp $'
 ! !