--- a/ReturnNode.st	Wed Jan 12 21:20:41 1994 +0100
+++ b/ReturnNode.st	Sun Jan 16 04:51:45 1994 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.3 1993-10-13 02:41:43 claus Exp $
+$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.4 1994-01-16 03:51:44 claus Exp $
 '!
 
 !ReturnNode methodsFor:'accessing'!
@@ -31,6 +31,12 @@
     blockHome := aBlockNode
 ! !
 
+!ReturnNode methodsFor:'queries'!
+
+isReturnNode
+    ^ true
+! !
+
 !ReturnNode methodsFor:'evaluating'!
 
 evaluateExpression