--- a/compiler/PPCListNode.st	Thu Apr 30 23:43:14 2015 +0200
+++ b/compiler/PPCListNode.st	Sun May 10 06:28:36 2015 +0100
@@ -13,51 +13,51 @@
 !PPCListNode class methodsFor:'as yet unclassified'!
 
 withAll: aCollection
-	^ self basicNew children: aCollection
+    ^ self basicNew children: aCollection
 ! !
 
 !PPCListNode methodsFor:'accessing'!
 
 children
-	^ children
+    ^ children
 !
 
 children: anObject
-	
-	children := anObject
+    
+    children := anObject
 !
 
 firstChild
-	^ self children first
+    ^ self children first
 !
 
 secondChild
-	^ self children second
+    ^ self children second
 ! !
 
 !PPCListNode methodsFor:'analysis'!
 
 acceptsEpsilon
-	self subclassResponsibility
+    self subclassResponsibility
 !
 
 acceptsEpsilonOpenSet: set
-	self subclassResponsibility
+    self subclassResponsibility
 ! !
 
 !PPCListNode methodsFor:'copying'!
 
 postCopy
-	super postCopy.
-	children := children copy
+    super postCopy.
+    children := children copy
 ! !
 
 !PPCListNode methodsFor:'transformation'!
 
 replace: node with: anotherNode
-	children keysAndValuesDo: [ :index :child |
-		child == node ifTrue: [ children at: index put: anotherNode ] 
-	]
+    children keysAndValuesDo: [ :index :child |
+        child == node ifTrue: [ children at: index put: anotherNode ] 
+    ]
 ! !
 
 !PPCListNode class methodsFor:'documentation'!