--- a/Block.st	Mon Apr 15 16:39:12 2013 +0200
+++ b/Block.st	Mon Apr 15 16:44:44 2013 +0200
@@ -567,6 +567,10 @@
     "
 !
 
+timeToRun
+    ^ Time millisecondsToRun:self
+!
+
 valueWithPossibleArgs:argArray
      ^ self valueWithOptionalArguments:argArray
 ! !
@@ -3113,11 +3117,11 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.193 2013-04-15 14:39:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.194 2013-04-15 14:44:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.193 2013-04-15 14:39:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.194 2013-04-15 14:44:44 cg Exp $'
 ! !