--- a/Block.st	Thu Jan 29 12:14:16 2015 +0100
+++ b/Block.st	Thu Jan 29 12:20:01 2015 +0100
@@ -665,7 +665,6 @@
     "Created: / 28-08-2010 / 14:41:15 / cg"
 ! !
 
-
 !Block methodsFor:'accessing'!
 
 home
@@ -842,13 +841,18 @@
     endTime := OperatingSystem getMicrosecondTime.
 
     micros := endTime - startTime.
-    millis := micros // 1000.
 
     Transcript show:anInfoString.
-    millis < 50 ifTrue:[
+    micros < 10000 ifTrue:[
         Transcript show:micros; show:' µs'.
     ] ifFalse:[
-        Transcript show:(TimeDuration milliseconds:millis).
+        micros < 100000 ifTrue:[
+            millis := (micros / 1000.0) asFixedPointRoundedToScale:2.
+            Transcript show:millis; show:' ms'.
+        ] ifFalse:[
+            millis := micros // 1000.
+            Transcript show:(TimeDuration milliseconds:millis).
+        ].
     ].
     Transcript cr.
 
@@ -3171,11 +3175,11 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.207 2015-01-15 13:08:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.208 2015-01-29 11:20:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.207 2015-01-15 13:08:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.208 2015-01-29 11:20:01 cg Exp $'
 ! !