--- a/Block.st	Sun Jan 16 04:38:33 1994 +0100
+++ b/Block.st	Sun Jan 16 04:47:41 1994 +0100
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Block.st,v 1.7 1993-12-16 10:51:25 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Block.st,v 1.8 1994-01-16 03:39:37 claus Exp $
 
 written spring 89 by claus
 '!
@@ -743,6 +743,9 @@
 !
 
 forkWith:argumentArray
+    "create a new process executing the receiver passing elements
+     in argumentArray to the receiver block"
+
     |b|
 
     b := [self valueWithArguments:argumentArray].
@@ -768,6 +771,8 @@
 !Block methodsFor:'printing'!
 
 printString
+    "return a string containing a printed representation of the block"
+
     home notNil ifTrue:[
         ^ '[] in ', home printString
     ].
@@ -775,6 +780,8 @@
 !
 
 printOn:aStream
+    "append a a printed representation of the block to aStream"
+
     |homeClass|
 
     aStream nextPutAll:'[] in '.