--- a/MessageNd.st	Mon Aug 22 15:47:03 1994 +0200
+++ b/MessageNd.st	Tue Aug 23 18:17:18 1994 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.10 1994-08-22 12:40:53 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.11 1994-08-23 16:16:58 claus Exp $
 '!
 
 !MessageNode class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.10 1994-08-22 12:40:53 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.11 1994-08-23 16:16:58 claus Exp $
 "
 !
 
@@ -954,12 +954,7 @@
                     ].
                 ].
                 (selector == #return) ifTrue:[  "^ nil"
-                    b isNil ifTrue:[
-                        aStream nextPut:#retNil.
-                    ] ifFalse:[
-                        aStream nextPut:#pushNil.
-                        aStream nextPut:#blockRetTop.
-                    ].
+                    aStream nextPut:#retNil.
                     ^ self
                 ].
             ]
@@ -972,11 +967,7 @@
             valueNeeded ifFalse:[
                 (selector == #return:) ifTrue:[
                     (argArray at:1) codeOn:aStream inBlock:b.  "^ value"
-                    b isNil ifTrue:[
-                        aStream nextPut:#retTop.
-                    ] ifFalse:[
-                        aStream nextPut:#blockRetTop.
-                    ].
+                    aStream nextPut:#retTop.
                     ^ self
                 ].
              ].