--- a/ReadEvalPrintLoop.st	Tue Dec 06 13:38:19 2011 +0100
+++ b/ReadEvalPrintLoop.st	Tue Dec 06 13:41:14 2011 +0100
@@ -364,11 +364,19 @@
                         error nextPutLine:('Evaluation aborted: ', ex description).
                         ex return.
                     ] do:[
-                        |value|
+                        |value t|
 
-                        value := (compilerClass new requestor:self) evaluate:chunk compile:true.
+                        t := Time millisecondsToRun:[
+                            value := (compilerClass new requestor:self) evaluate:chunk compile:true.
+                        ].
                         value printOn:output.
                         output cr.
+                        timingFlag == true ifTrue:[
+                            'execution time: ' printOn:output.
+                            t printOn:output.
+                            'ms' printOn:output.
+                            output cr.
+                        ].
                     ].
                 ].
             ].
@@ -380,15 +388,15 @@
     "
 
     "Created: / 07-12-2006 / 17:27:21 / cg"
-    "Modified: / 06-10-2011 / 21:02:22 / cg"
+    "Modified: / 06-12-2011 / 13:41:05 / cg"
 ! !
 
 !ReadEvalPrintLoop class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.31 2011-12-06 12:38:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.32 2011-12-06 12:41:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.31 2011-12-06 12:38:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.32 2011-12-06 12:41:14 cg Exp $'
 ! !