--- a/compiler/PPCGuard.st	Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/PPCGuard.st	Mon Aug 17 12:13:16 2015 +0100
@@ -71,7 +71,7 @@
         (index > 32 and: [ index < 127 ]) ifTrue: [ 
             compiler add: '(context peek == ', (Character value: index) storeString, ')'
         ] ifFalse: [ 
-            id := compiler idFor: (Character value: index) prefixed: #character.
+            id := compiler idFor: (Character value: index) defaultName: #character.
             compiler addConstant: (Character value: index) as: id.
             compiler add: '(context peek = ', id, ')'.
      		] 
@@ -92,12 +92,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