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