--- a/compiler/PPCCharacterNode.st	Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/PPCCharacterNode.st	Mon Aug 17 12:13:16 2015 +0100
@@ -19,7 +19,7 @@
     character := char
 !
 
-prefix
+defaultName
     ^ #char
 ! !
 
@@ -59,7 +59,7 @@
         ^ self
     ].
 
-    aStream nextPutAll: ', not('; print: character; nextPutAll: ')'
+    aStream nextPutAll: ', '; print: character.
 ! !
 
 !PPCCharacterNode methodsFor:'visiting'!