--- a/ReturnNode.st	Thu Aug 11 23:41:26 1994 +0200
+++ b/ReturnNode.st	Thu Aug 11 23:42:09 1994 +0200
@@ -20,6 +20,8 @@
 ReturnNode comment:'
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
+
+$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.6 1994-08-11 21:42:09 claus Exp $
 '!
 
 !ReturnNode class methodsFor:'documentation'!
@@ -40,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.5 1994-06-02 20:26:14 claus Exp $
+$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.6 1994-08-11 21:42:09 claus Exp $
 "
 !
 
@@ -88,6 +90,13 @@
 codeOn:aStream inBlock:b
     |type value index|
 
+    "/ after 2.10
+    b notNil ifTrue:[
+        expression codeOn:aStream inBlock:b.
+        aStream nextPut:#homeRetTop.
+	^ self
+    ].
+
     (expression isKindOf:PrimaryNode) ifTrue:[
         type := expression type.
         (type == #Nil) ifTrue:[