--- a/Block.st	Thu May 20 10:35:48 2010 +0200
+++ b/Block.st	Fri May 21 17:10:55 2010 +0200
@@ -2020,7 +2020,7 @@
     me := Processor activeProcess.
 
     signal := Signal new notifierString:'timeout'.
-    showStopper := [ done ifFalse:[ me interruptWith:[ signal raise ]] ].
+    showStopper := [ me interruptWith:[ done ifFalse:[ signal raise ] ]].
 
     signal handle:[:ex |
         retVal := exceptionBlock value.
@@ -2047,6 +2047,7 @@
     "
 
     "Modified: / 20-05-2010 / 10:35:33 / cg"
+    "Modified: / 21-05-2010 / 12:19:57 / sr"
 ! !
 
 !Block methodsFor:'exception handling private'!
@@ -2926,11 +2927,11 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.179 2010-05-20 08:35:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.180 2010-05-21 15:10:55 sr Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.179 2010-05-20 08:35:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.180 2010-05-21 15:10:55 sr Exp $'
 ! !
 
 Block initialize!