--- a/compiler/PPCGuard.st	Sun Oct 26 22:08:41 2014 +0000
+++ b/compiler/PPCGuard.st	Sun Oct 26 22:49:03 2014 +0000
@@ -52,18 +52,19 @@
 !
 
 compileCharacter: compiler
-	self assert: (classification select: [ :e | e ]) size = 1.
-	
-	classification keysAndValuesDo: [ :index :value | value ifTrue: [  
-		(index > 32 and: [ index < 127 ]) ifTrue: [ 
-			compiler add: '(context peek = ', (Character value: index) printString, ')'
-		] ifFalse: [ 
-			id := compiler idFor: (Character value: index) prefixed: #character.
-			compiler addConstant: (Character value: index) as: id.
-			compiler add: '(context peek = ', id, ')'.
-	 	] 
-	] ].
+        self assert: (classification select: [ :e | e ]) size = 1.
+        
+        classification keysAndValuesDo: [ :index :value | value ifTrue: [  
+                (index > 32 and: [ index < 127 ]) ifTrue: [ 
+                        compiler add: '(context peek = ', (Character value: index) storeString, ')'
+                ] ifFalse: [ 
+                        id := compiler idFor: (Character value: index) prefixed: #character.
+                        compiler addConstant: (Character value: index) as: id.
+                        compiler add: '(context peek = ', id, ')'.
+                ] 
+        ] ].
 
+    "Modified: / 26-10-2014 / 22:13:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 compileGuard: compiler id: symbol