--- a/UnaryNode.st	Sat Nov 18 17:59:14 1995 +0100
+++ b/UnaryNode.st	Thu Nov 23 03:15:59 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 MessageNode subclass:#UnaryNode
-       instanceVariableNames:''
-       classVariableNames:''
-       poolDictionaries:''
-       category:'System-Compiler-Support'
+	 instanceVariableNames:''
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'System-Compiler-Support'
 !
 
 !UnaryNode class methodsFor:'documentation'!
@@ -33,14 +33,14 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.17 1995-11-11 15:31:42 cg Exp $'
-!
-
 documentation
 "
     node for parse-trees, representing unary messages
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.18 1995-11-23 02:15:16 cg Exp $'
 ! !
 
 !UnaryNode class methodsFor:'instance creation'!
@@ -139,13 +139,6 @@
     ^ (self basicNew) receiver:r selector:selectorString args:nil lineno:0
 ! !
 
-!UnaryNode methodsFor:'queries'!
-
-isUnaryMessage
-    "return true, if this node is one for a unary message"
-    ^ true
-! !
-
 !UnaryNode methodsFor:'checks'!
 
 plausibilityCheck
@@ -167,17 +160,6 @@
     ^ nil
 ! !
 
-!UnaryNode methodsFor:'evaluating'!
-
-evaluate
-    "evaluate the expression represented by the receiver"
-
-    receiver isSuper ifTrue:[
-	^ super evaluate
-    ].
-    ^ (receiver evaluate) perform:selector
-! !
-
 !UnaryNode methodsFor:'code generation'!
 
 codeOn:aStream inBlock:b for:aCompiler
@@ -223,6 +205,17 @@
     ^ super codeOn:aStream inBlock:b for:aCompiler
 ! !
 
+!UnaryNode methodsFor:'evaluating'!
+
+evaluate
+    "evaluate the expression represented by the receiver"
+
+    receiver isSuper ifTrue:[
+	^ super evaluate
+    ].
+    ^ (receiver evaluate) perform:selector
+! !
+
 !UnaryNode methodsFor:'printing'!
 
 printOn:aStream indent:i
@@ -247,3 +240,11 @@
     selector printString printOn:aStream.
 "    aStream space.     "
 ! !
+
+!UnaryNode methodsFor:'queries'!
+
+isUnaryMessage
+    "return true, if this node is one for a unary message"
+    ^ true
+! !
+