--- a/compiler/PPCASTUtilities.st	Fri Jul 31 14:07:31 2015 +0100
+++ b/compiler/PPCASTUtilities.st	Mon Aug 17 12:56:02 2015 +0100
@@ -28,17 +28,17 @@
     allClassVarNames := Set new.
     cls := aClaas.
     [ cls notNil ] whileTrue:[ 
-	| instanceVariables classVariables |
-		
-	instanceVariables := cls instanceVariables.
-	classVariables := cls classVariables.
-	instanceVariables notNil ifTrue:[
-	    allInstVarNames addAll: instanceVariables.
-	]. 
-	classVariables notNil ifTrue:[
-	    allClassVarNames addAll: classVariables.
-	].
-	cls := cls superclass.
+        | instanceVariables classVariables |
+                
+        instanceVariables := cls instanceVariables.
+        classVariables := cls classVariables.
+        instanceVariables notNil ifTrue:[
+            allInstVarNames addAll: instanceVariables.
+        ]. 
+        classVariables notNil ifTrue:[
+            allClassVarNames addAll: classVariables.
+        ].
+        cls := cls superclass.
     ].
 
     self withAllVariableNodesOf: anRBBlockNode  do: [ :node |