--- a/PrimaryNode.st	Sat Nov 18 17:59:14 1995 +0100
+++ b/PrimaryNode.st	Thu Nov 23 03:15:59 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 ParseNode subclass:#PrimaryNode
-       instanceVariableNames:'value'
-       classVariableNames:''
-       poolDictionaries:''
-       category:'System-Compiler-Support'
+	 instanceVariableNames:'value'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'System-Compiler-Support'
 !
 
 !PrimaryNode class methodsFor:'documentation'!
@@ -33,14 +33,14 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.12 1995-11-11 15:31:27 cg Exp $'
-!
-
 documentation
 "
     node for parse-trees, representing primaries (variables & literals)
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.13 1995-11-23 02:14:13 cg Exp $'
 ! !
 
 !PrimaryNode methodsFor:'accessing'!
@@ -49,24 +49,6 @@
     ^ value
 ! !
 
-!PrimaryNode methodsFor:'queries'!
-
-isPrimary
-    "return true, if this is a node for a primary (i.e. non-send)"
-
-    ^ true
-! !
-
-!PrimaryNode methodsFor:'evaluating'!
-
-evaluate
-    ^ self subclassResponsibility
-!
-
-store:aValue
-    ^ self subclassResponsibility
-! !
-
 !PrimaryNode methodsFor:'code generation'!
 
 codeForSideEffectOn:aStream inBlock:b for:aCompiler
@@ -82,6 +64,16 @@
     ^ self subclassResponsibility
 ! !
 
+!PrimaryNode methodsFor:'evaluating'!
+
+evaluate
+    ^ self subclassResponsibility
+!
+
+store:aValue
+    ^ self subclassResponsibility
+! !
+
 !PrimaryNode methodsFor:'printing'!
 
 displayString
@@ -91,3 +83,12 @@
 printOn:aStream indent:i
     ^ self subclassResponsibility
 ! !
+
+!PrimaryNode methodsFor:'queries'!
+
+isPrimary
+    "return true, if this is a node for a primary (i.e. non-send)"
+
+    ^ true
+! !
+