--- a/compiler/PPCTrimNode.st	Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/PPCTrimNode.st	Mon Aug 17 12:13:16 2015 +0100
@@ -21,7 +21,7 @@
     children at: 2 put: anObject
 !
 
-prefix
+defaultName
     ^ #trim
 !
 
@@ -53,6 +53,7 @@
     | message |
     message := PPCMessagePredicateNode new 
             message: #isSeparator;
+            predicate: [ :char | char isSeparator ]
             yourself.
     ^ PPCStarNode new
         child: message;