--- a/Block.st	Mon Nov 08 03:29:58 1993 +0100
+++ b/Block.st	Mon Nov 08 03:32:43 1993 +0100
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Block.st,v 1.4 1993-10-13 02:11:07 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Block.st,v 1.5 1993-11-08 02:29:13 claus Exp $
 
 written spring 89 by claus
 '!
@@ -706,7 +706,7 @@
     |b|
 
     b := [self valueWithArguments:argumentArray].
-    b fork
+    ^ b fork
 !
 
 forkAt:priority