--- a/parsers/smalltalk/extensions.st	Mon Nov 24 11:38:11 2014 +0000
+++ b/parsers/smalltalk/extensions.st	Mon Nov 24 21:44:56 2014 +0000
@@ -3,11 +3,13 @@
 !PPParser methodsFor:'*petitsmalltalk-operations'!
 
 smalltalkToken
-	| ws |
-	ws := PPSmalltalkWhitespaceParser new.
-	^ ((ws, ((PPTokenParser on: self) tokenClass: PPSmalltalkToken; yourself), ws) ==> #second)
-		name: 'trimmingToken';
-		yourself
+        | ws |
+        ws := PPSmalltalkWhitespaceParser new.
+        ^ ((ws, ((PPTokenParser on: self) tokenClass: PPSmalltalkToken; yourself), ws) ==> #second)
+                propertyAt: 'trimmingToken' put: true;
+                yourself
+
+    "Modified: / 24-11-2014 / 21:36:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !RBProgramNode methodsFor:'*petitsmalltalk-accessing'!