--- a/PrimaryNode.st	Fri Aug 11 18:04:27 1995 +0200
+++ b/PrimaryNode.st	Fri Aug 11 22:28:40 1995 +0200
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
 
 PrimaryNode comment:'
 COPYRIGHT (c) 1989 by Claus Gittinger
-             All Rights Reserved
+	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.10 1995-08-11 16:03:45 claus Exp $
+$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.11 1995-08-11 20:28:17 claus Exp $
 '!
 
 !PrimaryNode class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
 copyright
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.10 1995-08-11 16:03:45 claus Exp $
+$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.11 1995-08-11 20:28:17 claus Exp $
 "
 !
 
@@ -78,16 +78,16 @@
 
 !PrimaryNode methodsFor:'code generation'!
 
-codeForSideEffectOn:aStream inBlock:b
+codeForSideEffectOn:aStream inBlock:b for:aCompiler
     "no code at all"
     ^ self
 !
 
-codeOn:aStream inBlock:codeBlock
+codeOn:aStream inBlock:codeBlock for:aCompiler
     ^ self subclassResponsibility
 !
 
-codeStoreOn:aStream inBlock:codeBlock valueNeeded:valueNeeded
+codeStoreOn:aStream inBlock:codeBlock valueNeeded:valueNeeded for:aCompiler
     ^ self subclassResponsibility
 ! !