--- a/compiler/tests/PPCCodeGeneratorTest.st	Tue May 12 01:24:03 2015 +0100
+++ b/compiler/tests/PPCCodeGeneratorTest.st	Thu May 21 14:12:22 2015 +0100
@@ -519,6 +519,18 @@
     self assert: parser parse: '' to: nil end: 0.
 !
 
+testNotCharacterNode
+    node := PPCNotCharacterNode new
+        character: $:
+        yourself.
+    
+    self compileTree: node.
+    
+    self assert: parser parse: 'a' to: nil end: 0.
+    self assert: parser fail: ':'.
+    self assert: parser parse: '' to: nil end: 0.
+!
+
 testNotLiteralNode
     | literalNode |
     literalNode := PPCNotLiteralNode new