--- a/RetNode.st	Thu Feb 25 15:48:48 1999 +0100
+++ b/RetNode.st	Thu Feb 25 15:49:27 1999 +0100
@@ -119,7 +119,7 @@
     ].
 
     lineNrOrNil notNil ifTrue:[
-        ParseNode codeLineNumber:lineNrOrNil on:aStream for:aCompiler
+        self codeLineNumber:lineNrOrNil on:aStream for:aCompiler
     ].
 
     aStream nextPut:code.
@@ -159,7 +159,7 @@
     expression codeOn:aStream inBlock:b for:aCompiler.
 
     lineNr notNil ifTrue:[
-        ParseNode codeLineNumber:lineNr on:aStream for:aCompiler
+        self codeLineNumber:lineNr on:aStream for:aCompiler
     ].
 
     aStream nextPut:#homeRetTop.
@@ -211,5 +211,5 @@
 !ReturnNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/RetNode.st,v 1.20 1997-06-19 14:57:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/RetNode.st,v 1.21 1999-02-25 14:49:00 cg Exp $'
 ! !