--- a/Block.st	Thu Jan 29 12:20:01 2015 +0100
+++ b/Block.st	Thu Jan 29 12:20:39 2015 +0100
@@ -843,7 +843,7 @@
     micros := endTime - startTime.
 
     Transcript show:anInfoString.
-    micros < 10000 ifTrue:[
+    micros < 1000 ifTrue:[
         Transcript show:micros; show:' µs'.
     ] ifFalse:[
         micros < 100000 ifTrue:[
@@ -3175,11 +3175,11 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.208 2015-01-29 11:20:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.209 2015-01-29 11:20:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.208 2015-01-29 11:20:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.209 2015-01-29 11:20:39 cg Exp $'
 ! !