--- a/compiler/PPCRewritingVisitor.st	Thu Apr 30 23:43:14 2015 +0200
+++ b/compiler/PPCRewritingVisitor.st	Sun May 10 06:28:36 2015 +0100
@@ -12,35 +12,35 @@
 !PPCRewritingVisitor methodsFor:'as yet unclassified'!
 
 change
-	self flag: 'JK: Do we need this?'.
-	change := true.
+    self flag: 'JK: Do we need this?'.
+    change := true.
 !
 
 visitChild: child of: node
-	| newChild |
+    | newChild |
 
-	(self isOpen: child) ifTrue: [ 
-		"already processing..."
-		^ nil
-	].
+    (self isOpen: child) ifTrue: [ 
+        "already processing..."
+        ^ nil
+    ].
 
-	(self isCached: child) ifTrue: [ 
-		"Use Cached Value"
-		node replace: child with: (self cachedValue: child).
-		^ nil
-	]. 
+    (self isCached: child) ifTrue: [ 
+        "Use Cached Value"
+        node replace: child with: (self cachedValue: child).
+        ^ nil
+    ]. 
 
 
-	change := false.
-	newChild := self visit: child.
-	change ifTrue: [ 
-		node replace: child with: newChild.
-	].
+    change := false.
+    newChild := self visit: child.
+    change ifTrue: [ 
+        node replace: child with: newChild.
+    ].
 !
 
 visitChildren: node
-	node children do: [ :child | 
-		self visitChild: child of: node
-	]
+    node children do: [ :child | 
+        self visitChild: child of: node
+    ]
 ! !