--- a/BlockNode.st	Tue Nov 22 01:23:56 1994 +0100
+++ b/BlockNode.st	Mon Nov 28 21:58:48 1994 +0100
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.10 1994-10-10 00:57:41 claus Exp $
+$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.11 1994-11-28 20:58:45 claus Exp $
 '!
 
 !BlockNode class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.10 1994-10-10 00:57:41 claus Exp $
+$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.11 1994-11-28 20:58:45 claus Exp $
 "
 !
 
@@ -428,7 +428,7 @@
 	"cannot currently compile this block inline (have to move blockvars into
 	 surrounding method. generate a make-block and send it value"
 
-	Transcript showCr:'cannot (yet) compile block with blockvars inline'.
+"/        Transcript showCr:'cannot (yet) compile block with blockvars inline'.
 	self codeOn:aStream inBlock:b.
 	aStream nextPut:#value.
 	(MessageNode hasLineNumber:#value) ifTrue:[