--- a/compiler/PPCSequenceNode.st	Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/PPCSequenceNode.st	Mon Aug 17 12:13:16 2015 +0100
@@ -11,6 +11,10 @@
 
 !PPCSequenceNode methodsFor:'accessing'!
 
+defaultName
+    ^ #seq
+!
+
 preferredChildrenVariableNames
     "Return an array of preferred variable names of variables where to store
      particular child's result value."
@@ -49,10 +53,6 @@
     "Created: / 04-06-2015 / 23:09:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-prefix
-    ^ #seq
-!
-
 returnParsedObjectsAsCollection
     ^ self propertyAt: #returnParsedObjectsAsCollection ifAbsent:[ true ]
 
@@ -117,7 +117,7 @@
         child recognizedSentences do: [ :suffix |
             retval do: [ :prefix |
                 set add: prefix, suffix.
-         		]
+         				]
         ].
         retval := set.
     ].