--- a/compiler/PPCConfiguration.st	Mon Aug 17 13:39:38 2015 +0100
+++ b/compiler/PPCConfiguration.st	Mon Aug 17 23:11:56 2015 +0100
@@ -114,10 +114,16 @@
     | time |
     self input: whatever.
     
-    time := [ self invokePhases ] timeToRun asMilliSeconds.
+    time := [ self invokePhases ] timeToRun.
+    ((Smalltalk respondsTo:#isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifFalse:[ 
+        "Assume Pharo"
+        time := time asMilliSeconds.
+    ].
     self reportTime: time.
     
     ^ ir
+
+    "Modified: / 17-08-2015 / 13:06:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 invokePhases