--- a/compiler/PPCActionNode.st	Wed Nov 19 10:52:37 2014 +0000
+++ b/compiler/PPCActionNode.st	Mon Nov 24 00:09:23 2014 +0000
@@ -12,6 +12,7 @@
 asFast
 	^ PPCTokenActionNode new
 		child: child;
+		properties: properties;
 		name: self name;
 		yourself
 !
@@ -30,13 +31,11 @@
 !
 
 rewrite: changeStatus
-	"TODO JK: Find another way how to recognize the trimming token!!"
-	(name = 'trimmingToken') ifTrue: [ 
+	(self hasProperty: #trimmingToken) ifTrue: [ 
 		changeStatus change.
 		^ PPCTrimmingTokenNode new
-			"name: name"
-			"JK: I am sorry"
-			child: child children second child;
+			name: name;
+			child: child children second child; 				"Oups, what a chain"
 			tokenClass: child children second tokenClass;
 			whitespace: child children first;
 			yourself