--- a/Block.st	Sun Aug 16 18:14:23 2009 +0100
+++ b/Block.st	Wed Aug 19 17:14:36 2009 +0100
@@ -370,6 +370,7 @@
     "Modified: 23.4.1996 / 15:55:58 / cg"
 ! !
 
+
 !Block methodsFor:'Compatibility-ANSI'!
 
 argumentCount
@@ -542,7 +543,6 @@
     "Created: 15.11.1996 / 11:38:37 / cg"
 ! !
 
-
 !Block methodsFor:'accessing'!
 
 home
@@ -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
-    ^ '$Id: Block.st 10448 2009-06-14 16:10:51Z vranyj1 $'
+    ^ '$Id: Block.st 10467 2009-08-19 16:14:36Z vranyj1 $'
 ! !
 
 Block initialize!