--- a/ReadEvalPrintLoop.st	Tue Dec 06 13:41:14 2011 +0100
+++ b/ReadEvalPrintLoop.st	Tue Dec 06 13:43:43 2011 +0100
@@ -366,7 +366,7 @@
                     ] do:[
                         |value t|
 
-                        t := Time millisecondsToRun:[
+                        t := TimeDuration toRun:[
                             value := (compilerClass new requestor:self) evaluate:chunk compile:true.
                         ].
                         value printOn:output.
@@ -388,15 +388,15 @@
     "
 
     "Created: / 07-12-2006 / 17:27:21 / cg"
-    "Modified: / 06-12-2011 / 13:41:05 / cg"
+    "Modified: / 06-12-2011 / 13:43:33 / cg"
 ! !
 
 !ReadEvalPrintLoop class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.32 2011-12-06 12:41:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.33 2011-12-06 12:43:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.32 2011-12-06 12:41:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.33 2011-12-06 12:43:43 cg Exp $'
 ! !