--- a/compiler/PPCGuard.st	Sun May 10 06:28:36 2015 +0100
+++ b/compiler/PPCGuard.st	Tue May 12 01:24:03 2015 +0100
@@ -67,7 +67,7 @@
             id := compiler idFor: (Character value: index) prefixed: #character.
             compiler addConstant: (Character value: index) as: id.
             compiler add: '(context peek = ', id, ')'.
-     	] 
+     		] 
     ] ].
 !
 
@@ -85,12 +85,12 @@
 !
 
 testMessage: selector
- 	classification keysAndValuesDo: [:index :element |
-		(element = ((Character value: index) perform: selector)) ifFalse: [ 
-			^ false 
-		]
-	].
-	^ true
+ 		classification keysAndValuesDo: [:index :element |
+				(element = ((Character value: index) perform: selector)) ifFalse: [ 
+						^ false 
+				]
+		].
+		^ true
 !
 
 testSingleCharacter