--- a/compiler/tests/PPCCodeGeneratorTest.st	Sun May 10 06:28:36 2015 +0100
+++ b/compiler/tests/PPCCodeGeneratorTest.st	Tue May 12 01:24:03 2015 +0100
@@ -365,21 +365,21 @@
 
 testInlinePluggableNode
    "Sadly, on Smalltalk/X blocks cannot be inlined because
-	 the VM does not provide enough information to map
-	 it back to source code. Very bad indeed!!"          
-	((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[
-	    self skipIf: true description: 'Blocks cannot be inlined due to a lack of proper VM support'.
-	].
+		 the VM does not provide enough information to map
+		 it back to source code. Very bad indeed!!"          
+		((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[
+			self skipIf: true description: 'Blocks cannot be inlined due to a lack of proper VM support'.
+		].
 
-	node := PPCSequenceNode new
-		children: { 
-			PPCPluggableNode new block: [ :ctx | ctx next ]; markForInline; yourself. 
-			$a asParser asCompilerNode }.
-	
-	self compileTree: node.
-	
-	self assert: parser class methodDictionary size = 2.
-	self assert: parser parse: 'ba' to: #($b $a).
+		node := PPCSequenceNode new
+				children: { 
+						PPCPluggableNode new block: [ :ctx | ctx next ]; markForInline; yourself. 
+						$a asParser asCompilerNode }.
+		
+		self compileTree: node.
+		
+		self assert: parser class methodDictionary size = 2.
+		self assert: parser parse: 'ba' to: #($b $a).
 !
 
 testLiteralNode