--- a/Block.st	Tue Jul 21 18:08:29 2009 +0200
+++ b/Block.st	Wed Jul 22 12:01:59 2009 +0200
@@ -1919,7 +1919,10 @@
 !
 
 valueWithWatchDog:exceptionBlock afterMilliseconds:aTimeLimit
-    "a watchdog on a blocks execution"
+    "a watchdog on a block's execution. If the block does not finish its
+     evaluation after aTimeLimit milliseconds, it is interrupted (aborted) and
+     exceptionBlock's value is returned. The receiver's code must be prepared
+     for premature returning (by adding ensure blocks, as required)"
 
     |showStopper me signal retVal|
 
@@ -2823,7 +2826,7 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.166 2009-05-20 10:46:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.167 2009-07-22 10:01:59 cg Exp $'
 ! !
 
 Block initialize!