--- a/compiler/PPCPlusNode.st	Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/PPCPlusNode.st	Mon Aug 17 12:13:16 2015 +0100
@@ -18,16 +18,16 @@
 
 !PPCPlusNode methodsFor:'as yet unclassified'!
 
+defaultName
+    ^ #plus
+!
+
 followSets: aFollowDictionary firstSets: aFirstDictionary into: aSet suchThat: aBlock
     | first |
     super followSets: aFollowDictionary firstSets:  aFirstDictionary into: aSet suchThat: aBlock.
     
     first := aFirstDictionary at: self.
     (aFollowDictionary at: child) addAll: (first reject: [:each | each isNullable])
-!
-
-prefix
-    ^ #plus
 ! !
 
 !PPCPlusNode methodsFor:'visiting'!